МАКЕ А LASTING 
IMPRESSION — 


BURN A PROM 


WITH. 
* PROMENADE 
* CBUS I & Il 
* CARTRIDGE-MAKER-64 


WE RETOOL 

THE PRINT SHOP 

WITH TWO ENHANCEMENT 
UTILITIES 


WRITING AN ASSEMBLY 
LANGUAGE PROGRAM 


mem 
47” ASSEMBLY LANI 
HELP FOR ME 
„ GRAPHICS 


жазан Я 


ЕТСН: А ВІТ GRAPHICS 
SKETCHING PROGRAM 


EASY PROGRAM MERGING 
МТН AUTO-APPEND 


INSTANT CURSOR CONTROL 
WITH PRINTAT 


LEASING v. BUYING 
DRIVER SOFTWARE! 


LOWER THE ODDS WITH 
LUCKY LOTTERY 


READ BETWEEN THE LINES! 
SCRIPT ANALYSIS 


MOVE OVER, COMMODARES! 
TRY TO MEET 
THE CHALLENGE OF 
BRAINFRAME 


SET A SPELL WITH 
THE WIZARD OF IM 
ML ACTION FOR THE 64 


CARDCOS new DIGI-CAM "і a video 
digitizer that lets you transform just about 
anything you can shoot with a video camera 
into a black-and-white digital image. And, 
with your Commodore 64”, you can make 
pictures of that image. 

DIGI-CAM" comes complete with a black- 
and-white video camera, a digitizer, and 
software. It's the most comprehensive package 
al the most competitive price around. And it's 
a CARDCO quality product. 


FOCUS...SHOOT...STORE... 
AND PRIN 
DIGI-CAM "is incredibly | 
easy lo use. Simply focus 
the video camera on your 
subject, view the shot on 
your Commodore 64" | 
monitor, store the shot on 
CARDCOS DIGI-CAM '* 
software ... and print out. 
You can enhance or 
change the on-screen 


image — or combine it with text — because 
a version of CARDCOS Paint Now/Graph 
Now software is built in .... а! no extra cost! 
Make T-shirts for your friends"*, Christmas 
cards and birth announcements ... maps, 
ghe photos, secur- 

i.d. S... use it for 
Hide or pure 
pleasure. Plus, you 
сап transfer still 
images via modem 
to other 
Commodore” com- 
puters ... and share 
your shots! (Soon to 
be compatible with Apple 
and IBM.) 


SOFTWARE... THE 
WHOLE PICTURE 
FOR 8250" 
DIGI-CAM™ from 
CARDCO. For just $250 


CAMERA, DIGITIZER, 


..- Shouldn't you be in pictures? 
CARDCOS DIGI-CAM "is available at fine 
computer stores everywhere. For more іпіог- 


mation contact your 

local CARDCO ME 

«^ (еке) 
cardco, inc. 


“The world’s largest manufacturer 

of Commodore" accessories.” 

3005. Topeka, Wichila, Kansas 67202 
Render Service No. 122 


* Suggested retail — prices may vary. 
* Special heat-transfer ribbon required. 


FOR $250... YOU OUGHTA 
BE IN PICTURES! 
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efore we talk about what's in this issue of Ahoy!, 
let's talk about what's nor in it. Two other Com- 
modore magazines, you may have noticed, ran re- 
views of the Commodore 128 Personal Computer 
in their June issues. Why did Ahoy!, which always leads the 
pack in announcing and reviewing new products, allow itself 
to be scooped in this singularly important insta 

Tina Turner summed it up best when she said, “We never 
ever do nothing nice and easy” We weren't about to prepare 
а feature article on the 128 based on an afternoon's experi- 
mentation with the machine at Commodore's headquarters, as 
our two competitors did. We published our surface analysis 
of the 128 in April; not until Commodore shipped us a model 
of our own did Morton son sit down for a several-week 
round of testing the machine inside and out. The first pieces 
based on that research appear in the August Ahoy! 
as you are to read the definitive review of the Commodore 
128, we know a month is а long time to wait. But we've packed 
the July Ahoy! full of programs and features that should help 
make that month pass quickly: 

* The graphics theme begun last issue continues with Part 
П of Roger Macomber's tutorial on Screen Dumping on the 
Commodore 64, providing an onscreen Etch-a- Sketch (turn 
to page 73). Then, Morton Kevelson takes an extended look 
at The Print Shop, certainly one of the most popular Commo- 


ATTENTION COMMODORE 64 OWNERS 
DID YOU BUY THE WRONG PRODUCT? 


WE'LL PAY YOU FOR YOUR MISTAKE!" 


PRINTER INTERFACE BLUES 

No graphics, doesn't work with 
your software, Bad aspect ratios, 
mo available buffer, well you 
wouldn't have these problems with 
the Micro-World M W-350. We'll 
give you $59. off the list price of 
$129. for that strange interface 
that's causing you trouble. 


LAST YEARS BACK 
UP SOFTWARE 


Everyone has Back-up software 
that reproduces errors, b 

back up non-standard 

produce density frequency 
alterations,alter the number of sec 
tors, copy single syne bits, and 
reformat a single track? We X 


CALL- 201 - 838-9027 
or write us at 
МІЕГа-УУ. 


DISTRIBUTING 


95. We've added an 
dual drive Clone Machine also 
available for only Upgrade 
your products to the latest state of 
the art today. 


Reader Service No. 169 
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dore programs of all time. Morton and Michael Beutjer (au- 
thor of last issue's Quad-Print) each contribute an enhance- 
ment utility that will help users get even more out of the pro- 
gram. (Turn to page 50.) Finally, our Art Gallery debuts this 
issue, with some of the first submissions of reader-generated 
pubis (Turn to page 54.) 

again, Orson Scott Card's Creating Your Own Games 
on ie VIC and 64 transcends the genre of computer gam 
and published software. Trio Allegretto supplies machine lan- 
guage routines that you can imbed in your game program to 
play music that the program loads into BASIC strings, at any 
speed, on the VIC or 64. (Turn to page 18.) 

* They used to call it ROM burning, back when ROMs were 
programmed by burning open a fusable link. The days of burn- 
ed, along with the fusable links by which 
у programmed; but the home user can still place his 
programs in Permanent Read Only Memory. In PROM Pro- 
gramming Made Easy, Morton the К shows 64 and VIC users 
how to do that at surprisingly low cost. (Turn to ра 

© Bob Lloret returns to Ahoy/'s program pages with Lucky 
Lottery for the 64. It's as valuable a system as you'll find any- 
where for picking the winning numbers in your state lottery— 
which means, completely worthless. But you'll have fun pre- 
dicting winners based on past weeks results. (Turn to 

* Moving up to the pseudo-scientific, Bob Spirkos 
Analysis will allow 64 users to prepare a character profile based 
on a subjecr's handwriting sample. (Turn to page 17.) Bob also. 
contributes The Wizard of Im, a machine language game for 
the 64. While the game's format is nothing new, what Bob does 
with a familiar theme is...magic! (Turn to page 47.) 

© Printat by Simon Edgeworth simulates the cursor-control- 
ling command of the same name found in some advanced ver- 
sions of BASIC. (Turn to page 45.) 

* William V. Braun's Auto-Append will allow VIC and 64 
users to merge programs instantly. (Turn to page 62.) 

* You've heard that it can be cheaper to lease a new car 
than buy one— but who can assess all the variables involved 
and make a determination? You can—with Gil Карап Autos: 
Leasing v. Buying for the C-64. (Turn to page 75.) 

* Have Dale Rupert and Mark Andrews got big plans for 
you this month! In the Rupert Report on Speeding Pixels, you 
and Dale will develop a pair of assembly language routines 
that will speed up the manipulation of the 64,000 pixels in hi- 
res bit mapped graphics on the 64. (Turn to page 37.) In Com- 
modore Roots, Mark Andrews steps you up to Writing and Run- 
ning an Assembly Language Program. (Turn to page 77.) 

At this point, we'll draw an exhausted breath and let you 
discover the rest of the programs and features in the July Ahoy! 
for yourself. (Didn't we rell you we'd make you forget all about 
next month's feature on the 128?) —David Allikas 


AHOY! BULLETIN BOARD: 718-383-8909 
If your computer is equipped with a modem, you can 
call Ahov/s BBS 24 hours a day, 7 days a week to е) 

change mail with other Commodore users and download 
information on upcoming issues of Ahoy’, late-break- 
ing Commodore news, program corrections, and more. 
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An open letter to 
the readers of Ahoy Magazine 
Vincent Kurek 
The Ennon Corporation 


President: 


My purpose in writing is to ask 
you to join me in shaping the 
future of the new and most unusual 
field in computer technology today 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available to you, for your computer 
right now. However, there is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not be 
available to you other that through 
this offer 

This is unfortunate but somewhat 
understandable due to the way 
technology is created. You see, only 
the business oriented corporation 
сап finance research. It therefore is 
in a position to dictate immediate 
research goals. These goals are 
increasing profits through more 
efficient production. While valid 
they are merely creative and do 
absolutely nothing to foster 
exploration in new applications. The 
result: technology is never used to 
its fullest potential. But what's worst 
of all is that these competitve 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So, 
they don't. As a result, the 
infinitesimal amount of technology 
that finally trickles down to you is 


А. So expensive you are pro 
hibited from procurring it 

В. Shamefully inferior to the 
real thing 


remember...you can buy high-tech 
consumer goods, but never the 
technology that creates it. 

This same situation confronts you 
in the new Artificial Intelligence 
field, but with а difference: 

There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. They are not the real 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

1 have tried repeatedly to. 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Intelligence to the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 
This would benefit everyone in the 
long run. 


1 have met with little success 
Apparently, it seems that immediate 
corporate profit is more important 
than sharing technology with the 
public. Therefore, the Ennon 
Corporation stands alone in offering 
superior Artificial Intelligence 
programming directly to the home 
computer enthusiast 

Announcing AN-83: 
The “Thinking” Program 

Believe me when | say AN-B3 is 
the real thing. It is a true “thinking” 
program that receives an initial 

knowledge base" from a data fil 
read when AN-83 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything from that data 
and adds it to its memory 
Conversing with you, AN-83 adds 
and combines with facts already 
known. It generates new 
conclusions not explicitly contained 
in its original knowledge base—just 
like your own thinking process! The 
result; it knows considerably more 
than the specific facts given to it. 

AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
limitless. In the right hands, AN-83 
would revolutionize the adventure. 
strategy and other smart gam 
playing programs to say nothing of 
classic arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysts 
available to the home computer. 


FREE SOFTWARE 


In addition, you will be receiving 
free, Eliza—the most amazing 
Conversational A.l. program to date. 
Run this for your friends and jaws 
will drop with amazement. Eliza's 
responses are so human, it’s 
uncanny. An entertaining program, 
Eliza will answer once and for all 
the question: What can your 
computer do? e 

How to Learn 
Artificial Intelligence 

You can be creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 
for the micro. Their extensive. easy 
to understand commands walk you 
through the source code 


step by step, It's surprisingly simple. 
Even the beginner can understand 
the “How and Why of A.l." 
A Fantastic Savings 

The real profit to Ennon 
Corporation will be your 
participation in the future of 
Artificial Intelligence. Therefore, | 
am pleased to say nobody will miss 
this chance because they could not 
afford it, AN-83 is priced to cover 
just a fraction of its research and 
developmental costs. 

The "Thinking" Program AN-B3 is 
just $21.57. What's more, the 
astounding Eliza is yours absolutely 


T guess it's obvious that | want 
you to participate in the future of 
Artificial Intelligence. Forgive my 
excitement and enthusiasm but | 
just know you are going to be very 
happy and impressed that such 
things could be done with your 
computer, You just won't believe it 
Please take this opportunity now. 
Simply fill out your coupon below 
and тай today, Don't miss out. It's 
such a wonderful future ої 
discovery and excitement that 
awaits you. 


With very best of wishes 


ва" fig 


Vincent Kurek 


Please send me the 

Thinking 
for only 
In addition 


1 will receive 
absolutely FREE Eliza—the 
most impressive 
conversational Artificial 
Intelligence program to date. 


Available in disk only 
For use with the Commodore 64. 


Name — 


Address 


City 


State Zip Code 
THE ENNON CORPORATION 
1817 W. Call St,, Suite B-8 
Tallahassee. FL 32304 


Canadian orders must be in US. dollars 
We export to other countries. 
Commodore is a registered trademark. 


м—— 
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INNOVATIVE ORGANIZERS, INC. 
For Commodore 64" & VIC-20 " 


TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 
$29.97 

There is AMPLE room under the organizer to place all the computer 
Now, let's examine how these organizers work. There are 3 CRT-Models. P-D-1 $19.48 


WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
CRT-1 $17.98 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. CRT-2 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY | CRT-3 9397.97 
EXPANSION, and MUCH MORE. 

CRT-1 holds a Monitor or T. V. Set and а VIC 20 or 64. All wires & cartridges fit 
neatly under the organizer. 


CRT-2 same as CRT-1, but also has: ONE-STEP MASTER SWITCH (permits 4 Орасан Accesorios 
pieces of hardware to be turned on and off from one switch, plus circuit protection, 
incoming power fused with 6 AMP Fuse). SS-1 Surge & Spike 


CRT-3 same as CRT-2, but also has: SURGE & SPIKE PROTECTION built in. 
Р.р-1: HOLDS 1525 PRINTER & 1541 DISK DRIVE. Suppressor 

АП wires & cartridges fit neatly under the organizer. $29.95 
Ask about our Power Lock Switch & Power Portable 

Computer Fan & 2 Outlet Surge & Spike Protection. СЕ-1 ое. 


CALL FOR LIST OF SOFTWARE AVAILABLE 


Plus Shipping 


P.O. Box 108, Markleville, IN 46056 CALL TOLL FREE 
1-800-233-3645 Ext. 15 
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COMBO DAISY WHEEL/DOT MATRIX PRINTER * ONE MEGABYTE DRIVE % 
VIC SPEECH SYNTHESIZER * FAST TAPE LOADER * GAMES FROM SSI, 
FIRST STAR, MASTERTRONIC * RUNNER'S LOG * COMPUTER MAILBOX * 
SCIENCE LAB SOFTWARE * STORYBOOK MAKERS * AUTO-REBOOTER 


PASCAL ENHANCEMENT 
Advanced Kyan Pascal, like the 
Standard version, is a full Jensen/ 
Wirth implementation, but adding 
string handling, enhanced graphics, 
chain, include file, random access 
files, full pathname for files, and 
other extensions. Featured are a full- 
screen text editor and built-in assem- 
bler. The compiler, which generates 
optimized 6502 machine code, runs 
8 times faster than Standard Pascal 
and 30 times faster than BASIC. 
Advanced Pascal is available on a 
non-copy protected diskette for 
$69.95, Standard Pascal for $49.95. 
Kyan Software, 1850 Union Street 


ESTIMATING SOFTWARE 

Computerized Pricing Systems’ Es- 
timating Software, made available for 
over 25 micros since 1982, has been 
released in a 64, Plus/4, and 128 
compatible version. If and when 
Commodore's LCD Portable is re- 
leased, it will be made available for 
that as well. Price is $399. 
owners may obtain a demo 
for 519.95. 

Computerized Pricing Systems, 
3090 Oak Circle N., Broomfield, CO 
80020 (phone: 303-469-0557). 


OKIMATES 

Okidata reports that the Okimate 
10 color printer now supports 12 
graphics packages; DOODLE!, Ko- 
ala Painter (and Pad), the Edumate 
Light Pen software, Super Sketch, 


skette 


Flexidraw, Paint Magic, Chalk Board, 


Sorcerers Apprentice, Designers 
Pencil, Color Me, Cadpak and Tech- 
Sketch. 


Okidata, 532 Fellowship Rd., Mt. 
Laurel, NJ 08054 (phone: 609- 
235-2600). 


AUTOMATIC REBOOTER 
Intended for bulletin boards, secur- 


The Okimate 10 
color printer is 
now compatible 
with 12 different 
graphics soft- 
ware packages, 
(See review on 
page 101 of the 
March 85 
Ahoy!) 
READER 
SERVICE 

NO. 125 


ity systems, and other “constant use” 
applications for the C-64, the ABL- 
64 cartridge will reboot and run an 
essential program after a power fail- 
ure as soon as power is restored, even 
if the computer is left unattended. 
Price is $39.95. 

Input Systems, Inc., 15600 Palmet- 
to Lake Drive, Miami, FL 33157 
(phone: 305-252-1550). 


NEW GAME RELEASES 
Three for the C-64 from SSI: 
Designed for the avid strategist, 

Operation Market Garden simulates 

Montgomery's 1944 paratroop raid on 

occupied Holland. As leader of the 

largest daylight airborne and surface 
in history, you coordinate 
trikes, engage in combat, blow up 
and rebuild bridges, and initiate 
cross-river assaults with airborne/en- 


gineer units. The battle is waged in 
10 turns, from September 17-26. Price 
is 549,95. 

Computer Ambush simulates man- 
to-man combat between your ten in- 
fantrymen and a (usually) hidden en- 


ету. An onscreen map shows build- 
ings, hedges, walls, doors, windows, 
and the location of your soldiers. 
Price: $59.95. 

Newly adapted for the 64, Cartels 
and Cutthroats puts you in charge of 
a manufacturing plant. Based on 
newswires, market summaries, profit 
and loss statements, and memos from 
department heads, you must make ex- 
ecutive decisions. Ulcer-inducers in- 
clude inflation and high interest rates, 
labor demands, and government 
intervention. Price is $39.95. 

Strategic Simulations Inc., 883 
Stierlin Road, Bldg. A-200, Moun- 
tain View, CA 94043-1983 (phone: 
415-964-1353. 

Encouraged by the success of their 
Spy Vs. Spy game, based on charac- 
ters from Mad Magazine, First Star 
will release a line of Super Powers 
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саше, "ET in-depth 
product information. 


To make your compuler even more 
useful, join CompuServe and shop in 
our Electronic Mall. Easy enough for 
beginners, it's open 24 hours a day, 

7 days a week. And it offers a wide range 
of goods and services from nationally 
known stores and businesses including 
Bloomingdale's, Waldenbooks, American 
Express and Commodore. 


CompuServe's Electronic Mall * lets 
you shop at your convenience in all 
these departments: 


The Auto Shop, Book Bazaar, Finan- 
cial Mart, Leisure Center, Merchandise 


The Electronic М” в а service of CompuServe Inc and L M. Berry & С 
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What you can do in 15 minutes 

shopping the Electronic Mall way. 

* Access descriptions of the latest in 
‘computer printers, for instance. 

* Pick one and enter the order 
command. 

Check complete descriptions of 
places to stay on your next vacation. 

© Pick several and request travel 
brochures. 

% Access a department store catalog 
and pick out a wine rack, tools, 
toys...anything! 

* Place your order. 

What you can do in 15 minutes shop- 
ping the old шау. 

* Round up the family and get in 
the car. 


Reader Service No. 115 
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CompuServe Information Services 
bring you information, entertainment, 
personal communications and more. 


You can access CompuServe with 
almost any computer and modem, 
terminal or communicating word 
processor. 


To buya CompuServe Subscription 
Kit, see your nearest computer dealer. 
To receive our informative brochure, or 
to order direct, call or write: 


CompuServe 


Information Services, Р.О. Box 20212, 
5000 Arington Centre Blvd., Columbus, OH 43220 


In Ohio call 614-457-0802 


‘AnH & Я Воск Company 
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programs beginning in September, 
starring comic book heroes like Su- 
perman and Wonder Woman. 

Additionally, First Star announced 
that they will release Boulder Dash 
in a combination Commodore-Atari 
disk format. 

First Star Software, 18 East 4lst 
Street, New York, NY 10017 (phone: 
212-532-4666). 

Big Ben Games, Ltd. will import 
a number of British games for the 64 
and VIC at prices of 516.95 (disk) ог 
$14.95 (tape). None have ever before 
been sold in the United States. The 
titles of some of the releases tell you 
why: Візу Beezzzz, Choc a Bloc 
Charlie, Bumping Buggies, Son of 
Blagger, Cave Fighter, and Flight 


Two 50K games for $999, or 10€ a K. 
READER SERVICE NO. 127 


Path 737. Coming is a text adventure 
based on the BBC program Tripods. 

For a free catalog, write Big Ben 
Games, Ltd., Box 875, Wilmette, IL 
60091 or call 1-800-421-5300 (ask for 
operator R37). 

British gamemaker Mastertronic 
has released Se-Kaa of Assiah, com- 
prising two complete 50K programs. 
The gamer is required to find the Rod 
of Light, the Hammer of Vib-Ra, and 
the Casket of Vib-Ra and return them 
to their proper resting places, thus 
saving the world of the far future 
from the threat of Dark Hordes. Price 
is 59.99. 

Mastertronic International, Inc., 
407 Park Avenue South, Suite 16А, 
New York, NY 10016 (phone: 212- 
213-0166). 
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Temperature 
Lab enables the 
user to choose 
between Fahren- 
heit and Celsius 
readings, to 
compare tempera- 
ture scales on the 
same screen, and 
to display data in 
either graph or 
table form. 


EDUCATIONAL RELEASES 
Temperature Lab is the first release 
in Hayden Software's science labor- 
atory series, designed to transform a 
home or classroom into a science re- 
search center, The program, which 
enables students to conduct experi- 
ments that illustrate classic scientific 
phenomena, includes an electronic 
thermometer that plugs into the 64, 
enabling students to record temper- 
atures and see them displayed on the 
screen. Ап Experimenters Guide 
provides step-by-step instructions for 
experiments. Price: $99.95. 

Soon to follow is Light Lab, focus- 
ing on various visible light concepts 
like foot-candles, solar eclipses, and 
sunsets. 

Hayden Software Company, Inc., 
600 Suffolk Street, Lowell, MA 
01854 (phone: 617-937-0200). 

CBS Software will adapt selected 
titles from its preschool product cate- 
gory for optional use with the Mup- 
pet Learning Keys Computer Key- 
board (see review in March 85 
Ahoy!). 

CBS Software, One Fawcett Place, 
Greenwich, CT 06836 (phone: 203- 
622-2500). 

Basic Math Competency Skill 
Building consists of eight tutorial and 
practice programs designed for math 
students from intermediate to high 
school. Each disk is $59.95; the 8- 


diskette series is available for $325.00. 


Educational Activities, Іпс., РО. 


Box 392, Freeport, NY 11520 (phone: 


516-223-4666). 
Notebook Fun teaches students to 


keep neat notes. Tests, structured as 
games, are included. Price: $19.95. 

AC3L Software, PO. Box 246, 
New Derry, PA 15671. 


STORY-WRITING SOFTWARE 
Build a Book About You allows an 
adult to incorporate the name, ad- 
dress, pet, school, and friends of a 
child into a 32-page hardcover story- 
book. Available titles are The Mys- 
tery of Scented Mountain, The Holi- 
day Dragon, Adventures on the Rid- 
dle Planet, and The Greatest Circus 
Story Ever Told (all written for chil- 
dren 2-12 years old). Each kit is 
$39.95; refill kits are $19.95. 

Scarborough Systems, Inc., 55 S. 
Broadway, Tarrytown, NY 10591 
(phone: 1-800-882-8222). 

Two additions to Woodbury Soft- 
ware's PlayWriter lineup of home- 
makeable hardcover novels, designed 
for advanced young users and adults 
(the earlier releases Tales of Me and 
Adventures т Space were тесот- 
mended for children aged 7-14): 

Mystery! allows the writer to 
choose and describe his sleuth, de- 
termine method and motive of mur- 
der, and create his own cast of char- 
acters. If you want to be surprised, 
the program will pick the murderer 
for you. 

Castles & Creatures lets you con- 
struct a fantasy world replete with 
dragons, knights, princes and prin- 
cesses, and sorcerers. 

All four PlayWriter titles sell for 
$39.95 and include disk, color stick- 
ers, and full-page illustrations. 
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Woodbury, along with Grolier 
Electronic Publishing, will sponsor 
a novel writing contest for students— 
using PlayWriter software, naturally. 
Children in the 4th grade and below 
will use Adventures in Space, 5th-6th 
grade Castles & Creatures, and 7th 
grade and up Mystery! Books will be 
judged on content, originality, gram- 


Е 


PlayWriter line spans all age groups. 
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mar, spelling, and overall effect, with 
a $1,000 prize and a home computer 
for the winner in each category. En- 
tries will be accepted from October 
15, 1985 to January 15, 1986; entry 
blanks will be distributed through 
schools and retailers. 

Woodbury Software, 127 White 
Oak Lane CN#I001, Old Bridge, NJ 
08857 (phone: 201-679-0200). 


SIGHT & SOUND 
ENHANCEMENTS 

Sight & Sound has added bonus 
programs to their Kawasaki Rhythm 
Rocker and Incredible Musical Key- 
board disks: 

Rhythm Rocker now contains a new 
notation system that will display ev- 
erything the user plays on the screen, 
a score printer, auto-correct, and the 
ability to change voices while play- 
ing, transpose to any of 12 keys, and 
use a multitude of specially created 
effects. Price remains at $34.95; cur- 
rent owners can upgrade for $15.00. 

Incredible Musical Keyboard now 
allows for recording songs using up 
to three voices and sports a new no- 
tation and graphics program and five 
background accompaniments. Price 
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is $39.95; upgrade is $700. 

Sight & Sound Music Software, 
Inc., PO. Box 27, Dept. R2D2, New 
Berlin, WI 53151 (phone: 4l4- 
784-5850). 


VIC-TALKER 

Long overshadowed by that other 
Commodore computer, the VIC 20 
can now make some noise with VIC- 
Talker. Using advanced English pro- 
nunciation rules and a user-expand- 
able exception memory, Talker will 
supposedly provide unlimited vocab- 
ulary translation of text to synthesized 
speech. The cartridge will operate 
immediately upon power-up with an 
unexpanded VIC 20. The user can 
vary pitch to synthesize a singing 
voice or emphasize statements, ques- 
tions, and exclamations. 

Priced at $89.00 plus shipping and 
handling, VIC-Talker will be shipped 
within four weeks of receipt of or- 
der by Talktronics, Inc., 27341 East- 
ridge Drive, El Toro, CA 92630 
(phone: 714-768-4220). 


Speech synthesizer for the VIC 20. 
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RUNNER'S LOG 

Jogger offers no training schedule 
for runners, but will enable C-64 us- 
ers to compute weekly, monthly, and 
annual statistics based on regular en- 
tries of time, mileage, and weight. 
The information is available in the 
form of tabular data on screen or 
printer, or as 23 different hi-res 
graphic plots. Price is $29.00. 

Parsons Software, 1920 Briar Mea- 
dow, Arlington, TX 76014 (phone: 
817-465-4720). 


FAST TAPE LOADER 

In addition to allowing your data- 
cassette to load tapes eight times fast- 
er (or 2056 faster than your 1541 will 


load a disk), the Express Tape Op- 
erating System cartridge provides 
commands to recover lost or crashed 
BASIC programs. Available for 
$49.95 plus 5300 postage (CA resi- 
dents add 6% sales tax) from В.Р.Е., 
22 Ethel Lane, Mill Valley, CA 94941 
(phone: 415-388-0727). 


Prices slashed! Hurry in and save! 
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PRICE REDUCTIONS 

Price reductions on assorted C-64 
utilities: 

PractiCorp has lowered the price 
of PractiCalc 64 and PractiFile from 
$49.95 to $29.95 each, and the price 
of 64 Doctor to $19.95. 

PractiCorp International Inc., The 
Silk Mill, 44 Oak Street, Newton 
Upper Falls, MA 02164 (phone: 617- 
965-9870). 

International Tri Micro has lowered 
the price of The Write File, Your 
Home Office, and Plus Graph to 
$29.95 each. 

International Tri Micro, 14072 
Stratton Way, Santa Ana, CA 92705 
(phone: 714-832-6707). 


BETTER WORKING 

The first title in Spinnaker's Bet- 
ter Working line of productivity soft- 
ware for the 64, announced several 
months back, has finally come avail- 
able. Spreadsheet (549,95) combines 
a full-featured spreadsheet with the 
basic text entry, editing, and word 
wrap capabilities of a word proces- 
sor and the sort and search capabili- 
ties of a database. Slated for late sum- 
mer release are File & Report 
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Break the BASIC 
language barrier 


VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands to your programs with this super 
development package. You can distribute free RUN 
TIME version without paying royalties! 
ISBN/ 0-916439-26-7 


BASIC COMPILER 64 - compiles the 
complete BASIC language into either fast 6510 
machine language and/or compact speedcode. Get 
your programs into high gear and protect them by 
compiling 


$59.95 


ISBN# 0-916439-17-8 $39.95 
MASTER-64 - professional development 
package for serious applications. Indexed Ме 


system, full screen management, programmer s 
aid, BASIC extensions, 100 commands 
ISBN/ 0-916439-21-6 $39.95 
PASCAL-64 - {ull Pascal with extensions for 
graphics, sprites, file management, more. Compiles 


to 6510 machine code and can link to 
Assembler/Monitor routines 
ISBN/ 0-916439-10-0 $39.95 


ADA TRAINING COURSE - teaches 
you the language of the future. Comprehensive 
subset of the language, editor, syntax 
checker/compiler, assembler, disassembler. 120+ 
page guide 


ISBN# 0-916439-15-1 $59.95 


[n 0-916439-32-1 


C LANGUAGE COMPILER - г lull C 
language compiler. Conforms to the Kernighan & 
Ritchie standard. but without bit fields. Package іп 
cludes editor, compiler and linker 

ISBN# 0-916439-28-3 $79.95 


ASSEMBLER MONITOR-64 -a 
macro assembler and extended monitor package 
Assembler supports floating point constants. 
Monitor supports bank switching, quick trace. single 
step, more. 


ISBN# 0-916439-11-9 $39.95 


XREF-64 - indispensible tool for BASIC pro- 
grammer cross-references all references to variable 
and line numbers 

ISBN# 0-916439-27-5 $17.95 


OTHER TITLES ALSO AVAIL- 
ABLE - WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 
Call today for the name and address of 
your nearest local dealer 


PHONE: (616) 241-5510 


For postage and handling include $4.00 
($8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard 
VISA and American Express accepted 
Michigan residents шаң 
incl 4% sales tax. ЫШ 
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FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 


You Can Count On 


Abacus 
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ШЇ Software 


Р.О. Вох 7211 Grand Rapids, MI 49510 - Telex 709-101 - Phone 616/241-55 ШШ 


($49.95), a combined database and 
report generator; and Word Proces- 
sor, featuring a spelling checker. All 
three programs will integrate. 

Better Working, One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 


BOOK RELEASES 

Two from Howard W. Sams & Co. 

The Commodore Plus/4 Book 
($16.95) compares the Plus/4 to other 
machines, provides an overview of its 
features, accessories, and software, 
and discusses its compatibility with 
С-64 peripherals. Also included are 
database and keyboard tutorials, an 
introduction to BASIC 3.5, and a 
chapter on system setup. 

The Commodore 16 Users Manual 
($12.95) helps new to intermediate 
users become familiar enough with 
BASIC 3.5 to work successfully with 
numbers, produce simple graphics, 
design color and music, and calcu- 
Іше mathematical equations. 

Howard W. Sams & Co., Inc. 4300 
W. 62nd St., Indianapolis, IN 46268 
(phone: 317-298-5400). 
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CHECK /MONEY OROER + 
NEM YOR RESIDENTS ADD SALES TAN- 
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The World According to Robo the 
Robot ($12.95) introduces the read- 
er to robotics, covering MEGO, the 
computer language of robots, the ro- 
bot's brain, hardware chpis used, and 
а brief discussion of LISP, LOGO, 
and FORTH. 

Hayden Book Company, 10 Mul- 
holland Drive, Hasbrouck Heights, 
NJ 07604 (phone: 201-393-6306). 


Covers BASIC 3.5, graphics, more. 
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The Guidebook for Winning Adven- 
turers ($9.95) provides answers to 
questions on various levels for such 
games as Zork I-III, Enchanter, and 
Infidel, plus information on how ad- 
venture games are programmed. 


Baen Books, 8 West 36th St., New 
York, NY 10018 (phone: 212- 
947-8244). 

Sound and Graphics for the Com- 
modore 64 ($14.95) takes the reader 
step by step through composing and 
playing melodies and sound effects, 
drawing cartoons, and then combin- 
ing the sound and graphics. 

John Wiley & Sons, Inc., 605 
Third Ave., New York, NY 10158 
(phone: 212-850-6000). 


FINANCIAL PARTNER 

Home users and businesses that 
write under 150 checks a month can 
use Financial Partner to keep track 
of income and expenses. The pro- 
gram will print checks, address 1а- 
bels and envelopes, and prepare and 
print a list of financial transactions, 
ledger accounts, income statements, 
and balance sheets. It will also pre- 
pare records for tax returns. Price is 
$74.95. 

Practical Programs, Inc., РО. Box 
93104, 625 N. Milwaukee St., Mil- 
waukee, WI 53203 (phone: 414- 
278-0829). 


The SG-10C is Commodore-compatible. 
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сананы алашы pe 


А STAR IS REBORN 


Star Micronics forthcoming SG- 


Software, features, accessories, etc. 
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10C printer is an $С-10 (see review 
in May 85 Ahoy!) with a built-in 
Commodore interface, making it in- 
stantly compatible with the C-64, 
VIC 20, and С-128. Price will be 
529900. 

Star Micronics, Іпс., 200 Park 
Avenue, New York, NY 10166 (phone: 
212-986-6770). 


http://www.oldgamesitalia.n 


"Micro Май!” is the fist dedicated and powerful mailing list designed exclusively for your Commo- 
dore 64. It's completely menu driven and loaded with prompts. Some say you don't'need instructions, but we 
included them anyway. "Micro Mail" will add, delete, edit, search, display, print, and sort all your records in 
a matter of seconds. If you have a need to store and retrieve information, dont be without "Micro Mail" 


“Micro Checkbook” is bound to be the standard for other programs to live up to. Like “Micro 
Mail; it is dedicated and very powerful. It's completely menu driven and very user friendly. “Micro Checkbook” 
will add, delete, edit, search, display, print, and sort all records in a matter of seconds as well as store all tax 
information and balance your statement every month. If your checkbook is a problem (and whose isn't?), “Micro 
Checkbook” is your permanent cure. 


Available Soon: Micro Calendar, Micro Inventory, Star Trivia and Post Time. 
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TELECOM NEWS 
CompuServe subscribers who are 
members of Commodore user groups 
may now have unlimited access to the 
electronic edition of the Academic 
American Encyclopedia for $34.95 a 
year, or 30% off the regular price of 
$49.95 (connect charges extra). 
Grolier Electronic Publishing, Іпс., 


Dept. NH, 95 Madison Ave., New 
York, NY 10016 (phone: 212- 
696-9750). 


Signalman Error-Free: detects errors. 
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Two new products from Anchor 
Automation: 

Designed for small businesses and 
individuals who want to utilize their 
microcomputers for mailing services, 
the Signalman Computer Mailbox 


Signalman Mailbox: stores messages. 
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($299) will receive and store incom- 
ing messages whether or not the us- 
er's computer is online, and provide 
remote access and message pickup 
with multilevel password protection. 
Memory is 64K. 
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Installed between modem and 
computer “(ог dumb terminal), the 
Signalman Error-Free ($199) detects 
and controls errors in asynchronous 
data communication. 

Anchor Automation, Inc., 6913 
Valjean Ave., Van Nuys, CA 91406 
(phone: 818-9977758). 

CompuTray, a directory of discount 
travel and vacations offered by a na- 
tionwide network of airlines, hotels, 
car rental agencies, and the like, of- 
fers discounts of up to 60% off regu- 
lar prices. Charges are $1 per month 
plus 20€ per minute connect time. 

CompuTrav, 622 Broadway, New 
York, NY 10012. 

The North American Online Di- 
rectory 1985 lists 1511 machine-read- 
able databases alphabetically, by 13 
subject areas, and by 13 services of- 
fered. Price is 575.00. 

R.R. Bowker Company, PO. Box 
1807, Ann Arbor, MI 48106 (phone: 
1-800-521-8110). 

Geol ja OnLine, purportedly the 
st regional information ser- 
will provide Atlanta area users 
with information about the local com- 
munity and services such as electron- 
ic mail and home shopping. 

Georgia OnLine, Suite 720, Two 
Piedmont Center, Atlanta, GA 30305 
(phone: 404-233-1915). 


TWO INTERFACES 

Compatible with all Commodore 
computers that use the Commodore 
type serial bus, the Printmaster/+G 
parallel interface ($119.95) allows full 
emulation of a 1525 or 801 printer, 
including full graphics and graphics 
characters. Advanced capabilities i in- 
clude the ability to display 
rectory without erasing a BASIC pro- 
gram, or a complete printer interface 
status. Available is a 16K buffer 
($89.95) which provides faster graph- 
ics printing, renumbering and old 
utilities, and more features. 

Omnitronix, РО. Box 43, Mercer 
Island, WA 98040 (phone: 206- 
236-2983). 

The Apricord CD ($69.95) will 
also allow a host of printers to pro- 
duce all Commodore graphics char- 
acters. Utilizing a single-chip 65С02- 
compatible microprocessor that has 


Printmaster/+G emulates 1525/801. 
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a wider instruction set than the C-64 
itself, it is reportedly the only paral- 
lel interface available that can be pro- 
grammed in 65С02 code (a “super- 
set" of C-64 assembly code). 
Apricorn, 7050 Convoy Ct., San 
Diego, CA 9211 (phone: 619- 
569-9483). 


Apricord CD: programmable in 65C02. 
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FORMULAS SOFTWARE 

A program for calculating formu- 
las commonly used in electronics (in- 
cluding Ohm's law, passive compo- 
nents, reactance, and others) is avail- 
able for $1000 from Jack Morrow, 
7421 NW. Sth Terrace, Oklahoma 
City, OK 73127 (phone: 405- 
495-5071 before 1 p.m.). 


ONE MEGABYTE DRIVE 

Commodores SFD (Super Fast 
Drive) 1001 will have a one megabyte. 
storage capability on a double-sided, 
double-density format. A utility disk 
with 64 and 8032 utilities will be in- 
cluded. The drive, contained in a case 
identical to the 15415, will retail for 
$399.95. 

Progressive Peripherals & Soft- 
ware, who will distribute the SFD for 
Commodore, will also manufacture 


$ЕР-1001 can store ІМ on disk. 
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а serial to IEEE connec- 
ary to link the C-64 to the 
drive and other IEEE-488 devices. 
The unit, which will include its own 
power supply, will sell for $99.95. 

Progressive Peripherals & Soft- 


ware, 2186 South Holly, Suite 200, 
Denver, CO 80222 (phone: 303- 
759-5713). 

TWIN BROTHER 


$300 is a lot to pay for a printhead 
But that's what you're doing if you 
start out with a dot matrix printer and 


Brother HR-10: tractor, 2K buffer. 
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of a document 

Speed is 36 characters per second 
in daisy wheel mode, 140-160 cps us- 
ing the nine pin dot matrix printhead. 
Included are a 3K buffer (expandable 
to П or 19K), and choice of six bit 
image densities. 

Also new from Brother is the HR- 
10 daisy wheel printer with bidirec- 
tional printing, 2K buffer, and tractor 
feeder. Price is $349. 

Brother International Corporation, 
8 Corporate Place, Piscataway, NJ 
08854 (phone: 201-981-0300) 


DUAL DISK CATALOGUER 

Masterdual, like the previously 
released Masterdisk, is a disk cata- 
loguer with disk repair utilities, The 
difference is that Masterdual is de- 
signed for 4040-format dual disk 
drives (such as the MSD SD-2). 

The price of $29.95 includes a 
quick-reference translation card for 
equivalent hex, ASCII, binary, and 
decimal values. 

Integrated-Software Systems, P.O. 
Box 1801, Ames, IA 50010 (phone: 
515-233-2992). 


25 PROGRAMS ON DISK 

The Commodore 64 Programmer's 
Library includes over 25 utility, 
home management, and game pro- 
grams on disk, with two additional 
disks supplying documentation and 
a utility for printing your own copies. 
Price is $25 postpaid in US and 
Canada; foreign orders $35 via in- 
ternational money order. 

Baker Enterprises, 15 Windsor 
Drive, Atco, NJ 08004. 


VIDEOGAMING 


COLLECTOR'S 
ITEMS 


Collecto Inc. has acquired the re- 
maining copies of the fourteen 
rarest issues of Videogaming and 
Computergaming Illustrated. As 
reference tools they are invalua- 
ble, and they contain some of the 


Twinriter 5: combination dot matrix and daisy wheel. 


TU и best interviews in the history of 
later add а cheap daisy wheel—be- NEXT the videogaming industry. Plus 
cause the printhead is the only real MONTH: и original artwork that 
difference. Irs always seemed ironic Scuttlebutt will knock your socks off. All four- 
to us, in light of tbe miracle of the Қыта teen issues for only $15.95 (in- 
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hong сошрмер (йі по бе сап. О cluding postage and handlin 
make a dual-purpose printer. а і 

While the IINE LM] outside ће U.S. add $6.00. 
Brother is intended for the small of “Compatible COLLECTO INC. 


fice environment, it is the first print- 
er to feature combination daisy wheel 
and dot matrix printheads. Mode с; 
be switched by pushbutton or soft- 
ware commands, even in the middle 


products that 
will debut at 
June's Con- 
sumer Elec- 
tronics Show. 


P.O. BOX 1019 
BRYN MAWR, PA 19010 
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PRATA 


SUBSCR IBE Because DSKDU (May "85) was written on a VIC 20, 


TO with its eight extra characters per line, line 2220 was 
too long to enter on the 64. C-64 users can amend this 
problem as follows: 


2220 BY=P+L*4+C/2:HX=CAND1 :Н1$(0)=НХ$ (0% 
(BY)/16) :H1$(1)-HX$ (DZ(BY) AND15) 


O е 2221 CI-INT(C*1.5) 
newsstand In the first installment of Commodore Roots (April 


prices when 85). оп page 52, it is stated that in hexadecimal, the 
КИЕРИ leiers A-F represent the decimal numbers 11-16 respec- 
PSST осу That should be 10-15. Thanks to Michael R 
ИОВА “псі of Toledo, Ohio for alerting us to the error. 
pages 66 and 67 for details. On page 35 of the May '85 issue, the phone number 
of Epyx is listed incorrectly. The correct number is 
408-745-0700. 

The Font Factory, described on page 7 of our June 85 
issue, is available from Micro-W. Distributing, Inc., 
1342B Rte. 23, Butler, NJ 07405 (phone: 201-838-9027). 

Ме apologize for any inconvenience caused by the 
above errors. Remember that mistakes іп Ahoy! pro- 
grams and articles are posted on our bulletin board 
(718-383-8909) as soon as they are spotted. 


CARTRIDGE-MAKER-64" = = 


Create your own COMMODORE-64 Video game and program cartridges! 


Безу Monu Driven instructions allow you to: 
ЕР О Егазе апа 

О Create Autostart cartridges without the 
need to be skilled in machine language. 


О Copy you 

programs to cart 
П Copy from cartridge to c 
o Copy your 


| Also Available from CPG: 


CARTRIDGE-MAKER-64 . 
CARTRIDGE-ERASER ... 
CARTRIDGE-64 (16K) ............. $25.00 
CARTRIDGE-MAKER SYSTEM .$1 89 00 


Purchase of 5 Blank 
CARTRIDGE-64's (16K e 
SHIPPING:$3.00 (if Соо 


VISA-MASTERCARD-C 0.0 -СН 
DEALER & DISTRIBUT! 


Custom Programming Group, Inc. 


47-2A Marchwood Road • Exton, РА 19341 
(215) 363-8840 


5.00 
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Ву Bob 


(8 happened to all of us at one time or another. 
We see someone at a distance and although we 
cannot make out his features, we recognize him 
by his walk or his gestures. His body language dis- 

closes his personality. The hand, a part of the body, also 

reveals a person's character, but it has a singular differ- 
ence it leaves a tracing of its movement on paper. This 
tracing can be analyzed to determine personality, the sci- 
ence of which is called handwriting analysis, or graph- 
ology. A detailed analysis can take several hours to pre- 
pare, but a general analysis can be made simply and eas- 
ily using Script Analysis. More important, you dont have 
to know a thing about handwriting analysis to use it. 
The program will not analyze handwriting, but it will 
interpret your observations. Don't worry if you don't know 
what to look for. The program is rife with instructions 


Spirko 


ї be asked for the filename. Next you'll be asked if 
it is a new file or if it is to be LOADed. If you press 
N you'll then be asked if the sample was written by a 
lefthanded or righthanded person. Answer this and you'll 
be given the first of fifteen categories, slant. Follow the 
instructions and then choose the appropriate handwrit- 
ing characteristic. You'll go through each category this 
way. Once you've completed all of them, you'll be given 
a list of the handwriting characteristics that you chose, 
followed by two lists of personality traits. Dominant Traits 
are traits that have appeared three or more times, whereas 
Other Traits have occurred only twice. From there you 
have the option of sending the file to printer, disk, or 
tape; or you can elect to begin another analysis. O 

SEE PROGRAM LISTING ON PAGE 102 


and examples. I've made extensive use of character graph- 
ics to guide you along. All you do is answer the ques- 
tions and the computer will do the rest. 

While the analysis is general and less accurate than 
an indepth analysis done by a professional graphologist, 
it will provide you with a personality description of any 
sample of handwriting that you care to use. It was not 
feasible to incorporate the hundreds of characteristics that 
can be interpreted, so I chose a few dozen for their ease 
of recognition and general acceptance in graphology 
(opinions vary widely on some interpretations). 

In the program, each handwriting characteristic is at- 
tributed words that describe personality traits. The pro- 
gram has a vocabulary of 74 words ranging from aes- 
thetic to unreliable. The program compiles all the words 
or traits that appear in the script, but in the analysis it 
only lists those that appear more than once. Contradic- 
tions may turn up, but this does not necessarily mean 
the analysis is wrong. It is, for instance, possible to be 
both careful and careless. A person may be meticulous 
about writing a program while at the same time he allows 
his working space to degenerate into disarray! 

‘The sample of handwriting should follow a few rules. 
For one thing, it must be written on a blank piece of pa- 
per; no guidelines may be used. Letter-sized paper is 
preferred. As for the implement, ball-point реп or pen- 
cil is best since pressure cannot be interpreted from a 
felt-tip pen. Probably the best samples to analyze are from 
letters, since they are usually written spontaneously. 


With your sample on hand, run the program. You'll 
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WORD RUNNER 
Word Processing System by N-Systems 


Perfect for the first-time user — 
* No printer or page set-up required for standard format. Just enter 
a file name and start typing. 
* All editing is done in ""normal"" text entry mode, No special 
insert or edit modes. 
* Single-keystroke commands—no complicated command syntax 
* Fast, efficient machine language operation. 


For the advanced user 100 — 

* Move up to six thousand characters of text at one time—even 
between documents. 

* Full screen editing. 

* Global Search Search and Replace. 

* Built-in commands for italic, underline, bold-face, double width, 
superscript and subscript. 

* Automatic page numbering. 

* Display each page on the screen and edit before printing, or print 
entire document in continuous stream 

* Document length may be up to entire disk. 


AND—WORD RUNNER costs ONLY $44.95! 


То order WORD RUNNER, send check or money order to: 
N-Systems * P.O. Box 160 • Steger, IL 60475 
(Illinois residents add sales tax) 
WORD RUNNER is available for Commodore-64 on disk only and will 
work with Epson, Gemini, Okidata, and Commodore printers. 


Reader Service No. 119 


AHOY! 


http://www.oldgamesitalia.net/ 


17 


http://www.oldgamesitalia.net/ 


Machine language routines ' 
that let your VIC or 64 
play three-part harmonies 
at any speed) 


уе 


http://www.oldgamesitalia "A 


де. 


http://www.oldgamesitalia.net/ 


nesitalia.net/ | 


http 


Before you can effectively use these routines, though, 
you need to know something about sound. 

The sound produced by a musical instrument does not 
have the same volume all the way through the note. For 
instance, a gong begins very loudly and then slowly fades 
away; a bowed violin begins much less sharply, but sus- 
tains its tone fairly loudly while it is still being played. 
A piano sound begins sharply, fades off rapidly to a low- 
er sustain level, until the key or the pedal is released; 
then the note continues to “ring” until it fades to nothing. 

The way that the volume varies during the sounding 
of the note is called the “sound envelope.” The speed at 
which the sound rises from silence to the loudest volume 
is the “attack.” The speed at which the sound then falls 
off after the attack is called the “decay.” The volume that 
the sound stays at as long as the note is held is called 
the “sustain” And the speed at which the sound drops 
back to silence after the note stops being played is called 
the “release.” 

Notice that attack, decay, and release are all speeds— 
how fast the volume changes from soft to loud or loud 
to soft. Sustain is a volume control. The initial attack 
always takes the note to the maximum volume; the sustain 
is the fraction of that volume that the note has during 
the time it is held. 


DOING ENVELOPES ON THE 64 

A computer doesn't have to fuss with sound envelopes. 
You can simply switch on the note and it will continue 
to play that note until you switch it off. However, this 
makes for boring, mechanical sounding music. 

So the designers of the Commodore 64 put the sound 
envelope entirely within your control. Each of the three 
musical voices has a separately controlled sound envel- 
ope, so that you can have the illusion of three different 
musical instruments playing at once. 

Each of the three voices has four four-bit envelope con- 
trol registers. Each four-bit register controls one of the 
envelope parameters — attack, decay, sustain, or release. 
Since four bits can hold any number from 0 to 15, the 
attack, decay, sustain, and release are all expressed as 
numbers from 0 to 15. 

In the case of attack, decay, and release, the number 
represents speed: 0 is the fastest, and 15 the slowest. In 
the case of sustain, the number represents volume: 0 is 
silence, and 15 is maximum volume. 

These four four-bit registers use up a total of 16 bits. 
Since they are read from ordinary eight-bit memory lo- 
cations, those 16 bits are carried in only two memory 
locations for each voice. The first byte of each pair con- 
trols attack and decay; the second byte controls sustain 
and release. For voice 1, the registers are at locations 
54277 and 54278; for voice 2, 54284 and 54285; for voice 
3, 54291 and 54292. 

If you POKE (or, in machine language, STA) these 
values into those locations, you have to change them a 
bit. Let's say you have a fairly sharp attack of 2, a gentle 
decay of 7, a low sustain of 5, and a slow release of 14, 
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and you want this envelope to be played by voice 1. Гизе, 
you multiply the attack by 16 (16*2—32) and then add 
it or OR it (in ML, ORA it) with the decay value of 7. 
The resulting number, 39, is POKEd (or STAed) into lo- 
cation 54277. Then you multiply the sustain by 16 
(16*5—80) and add it or OR it with the release value of 
14. The resulting number, 94, is POKEd (or STAed) into 
location 54278. 

Once that envelope is set for voice 1, every new note 
that you “gate” оп POKE 54276,(PEEK(54276)AND 
254)OR 1—will use that same attack, decay, and sustain, 
and will keep playing the note at the sustain volume un- 


til you "gate" it off POKE 54276, PEEK (54276)AND 254. 


The 64 sound program, Song Maker, does all the cal- 
culating for you. All you have to do is set the individual 
attack, decay, sustain, and release values for each of the 
three voices in lines 9010, 9020, 9030, and 9040. AK %( ) 
is set to the attack for each voice; DY %( ) is set to the 
decay for each voice; and so on. 


FAKING IT ON THE VIC 

The VIC does not have separate envelope controls for 
the three sound generators, so the machine language rou- 
tine has to fake the effect by changing the volume con- 
trol at location 36879. Because all three voices are con- 
trolled by the same volume instruction, the three voices 
all have to have the same envelope. This does not mean, 
however, that they will sound the same. This is because 
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each of the three voices has a different waveform, or tone 
quality (see below). 

The VIC Music program has two sound routines. The 
BASIC statements from line 9010 to 9039 put the sound 
envelope routine in memory locations 663 to 767. The 
machine language commands contained in lines 9011, 
9016, and 9025 contain subroutines that execute delays 
for varying lengths of time, ranging from milliseconds 
to the duration of an individual note. 

The rest of the machine language routine executes as 
follows: 

Line 9030: this subroutine is used constantly to set the 
volume register to the desired level. It reads the old val- 
ue at location 36878, ANDs it with 240 to wipe out the 
old volume level, ORAs it with the current volume (which 
is maintained by another routine in location 150), and 
STAs it at 36878. 


(If you aren't familiar with how this is done in machine language, 
here is a detailed explanation of each number in the routine: 

173 is the command LDA (absolute), which means "pick up into 
the accumulator whatever number is found at the memory location 
described in the next two bytes.” 

14 is the low byte of the address of the memory location, 

144 is the high byte, or page number, of the address. To find the 
decimal equivalent, you would use 144*156 +14, which is 36878. 
To go the other direction, from 36878 to low byte (LB), high byte 
(HB) form, you would use HB=INT(36878/256):LB=36878— 
QS6*HB). 

41 is the machine language command AND (immediate), which 
means "perform a bitwise AND operation between the number now 
in the accumulator and the number that immediately follows this 
instruction. 

240 is the next number. It is ANDed with the number now in 
the accumulator, which we picked up a moment ago from location 
36878. (This operation has the effect of zeroing out the volume-con- 
trol bits, without disturbing the four bits at that location that have 
nothing to do with sound.) The result of this AND operation is put 
back in the accumulator. 

5 is the command ORA (zero page), which means “perform a 
bitwise OR operation between the number now in the accumulator 
and the number found at the zero-page location described by the 
next byte.” 

150 is the address of the location where other routines store the 
number that they want used for the volume. Since the command 
5 specified that this would be a zero- page address, the high byte 
of the address is assumed to be 0 and doesn't have to be stated. (This 
operation has the effect of combining the new volume value with 
the unchanged high byte of the original number at location 36878.) 
The result of this ORA operation is put back in the accumulator. 

141 is the command STA (absolute), meaning “take the number 
in the accumulator and store it at the memory location specified 
by the next two bytes; Its the reverse of the LDA (absolute) command. 

M is the low byte again. 

144 is, again, the high byte of address 36878. 

96 is the command RTS, which means "return from this subrou- 
tine.” The computer immediately jumps back to the next instruc- 
tion after the JSR (address) instruction that invoked this subroutine 
in the first place. 

For obvious reasons, we won't go into this kind of detail with the 
rest of the machine language routines included here.) 


Line 9035: gradually bring the volume from 0 to 15, 
pausing between each increment of the volume for the 
amount of time specified by the attack value at location 
659 (low byte 147, high byte 2). 
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Line 9036: pause for a moment at peak volume. 

Line 9037: gradually bring the volume down from 15 
to the sustain value specified at location 661, pausing be- 
tween each decrement of the volume for the amount of 
time specified by the decay value at location 660. 

Line 9038: wait for the amount of time specified by 
the duration value stored at zero-page location 149 (an- 
other routine puts this number here), combined with the 
basic tempo set at location 170. 

Line 9039: gradually bring the volume down from the 
sustain value to 0, pausing between each decrement of 
the volume for the amount of time specified by the re- 
lease value at location 662. The volume is now zero, the 
note is finished, so return from this routine to the pro- 
gram that called it. 

This is perhaps more detail than you wanted, but it 
does show you how a sound envelope is created. None 
of this is necessary in the 64, because the SID chip does 
all this automatically (and, I might add, much more 
smoothly and effectively); furthermore, the volume of 
all the notes is changed at once. 


THE QUALITY OF THE TONE 

The quality of a sustained note comes from the shape 
of the sound wave. The ringing tone of a gong comes 
from a very different sound wave than the blare of a trum- 
pet, and a violin makes an altogether different tone. Note 


that this is not related to the sound envelope. A piano 
string, for instance, produces the same sound wave if it 
is plucked or if it is hammered, since the identical string 
is vibrating—but the sound envelope, the way the sound 
volume happens, is very different. 

The 64 lets you choose one of three different musical 
waveforms for each voice. This waveform is selected by 
turning on bits at the control register (voice 1, location 
54276; voice 2, 54283; voice 3, 54290). Remember that 
bit 0 of this location is the gate control—if bit 0 is a 1, 
the sound begins; if it is 0, the sound is released, 

Bits | through 3 control sophisticated modifications 
of the tone quality that I won't attempt to explain here. 
(I've always found it somewhat harder to explain to other 
people things I don't understand myself.) 

Bit 4 selects the triangle waveform. (Add 16 to the gate 
number.) 

Bit 5 selects the sawtooth waveform. (Add 32 to the 
gate number.) 

Bit 6 selects the pulse waveform. (Add 64 to the gate 
number.) 

Bit 7 selects the random noise waveform, (Add 128 
to the gate number. This is not used to produce melody 
or harmony.) 

Now, I could spend a long time trying to tell you what 
the different waveforms sound like, but the truth is you'll 
only know what they sound like by trying them yourself. 
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skeptical, he started on VIZASTAR. 


Now, after 15 months, his dream has 
come true. VIZASTAR has a full 
featured spreadsheet, as good as 
Multiplan. But much faster—faster 
than many spreadsheets on the IBM 
PC! It is written 100% in 6502 
machine language code and is 
ALWAYS іп memory, It is menu 
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user-friendliness, It is compatible with 
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processors. Up to 9 windows can be 
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Remarkably, 10K of memory is 
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In the 64 program, just change the == 
to select the waveform for each voice. You can combine 
the waveforms that is, add both 32 and 64 or 16 and 
32 or all three —but the result is less than thrilling. 

However, you must choose at least one of the wave- 
forms, or no sound will be produced. So the number you 
POKE in to gate the sound on will be waveform 1; 
to gate the sound off, you can POKE a simple 0 or POKE 
in waveform + 0. 

The pulse waveform is even more complicated than 
the others, because it can have different widths, which 
are controlled by the two memory locations just before 
the gate/waveform control register for each voice. The 
first of these bytes can use a value from 0 to the 
second byte from 0 to 15 


WAVEFORM AND PITCH ON THE VIC 

The VIC also allows you to choose different waveforms, 
but only by choosing the particular voice that has that 
waveform. When you choose to play voice 1, at 36874, 
you automatically get a low sawtooth waveform. Voice 
2, at 36875, has a medium pulse waveform. Voice 3, at 
36876, has a higher pulse waveform 

You use these registers to select the pitch—and to turn 
the voice on and off. The pitch is a value from 0 to 127. 
The pitches are exactly one octave different from voice 
to voice. That is, if you POKE the value 67 into register 
36874, it will produce a C; if you POKE 67 into loca- 
tion 36875, it will also produce a C, but it will be an 
octave higher; a 67 stored in location 36876 will pro- 
duce a C an octave higher still. 


‘ou choose must be added to 128 to 

produce the actual sound, since 128 activates the on-off 

switch in each register. So to play that C in any of the 

three voices, you have to POKE register, pitch + 128. 
The pitches are as follows: 


7 67 7 12 С (B-sharp) 

15 71 99 113 D-flat (C-sharp) 
19 B 100 D 

23 75 101 E-flat (D-sharp) 
31 79 103 E (F-flat) 

35 81 104 Е (E-sharp) 

39 84 105 G-flat (F-sharp) 
47 87 107 [©] 

51 89 108 A-flat (G-sharp) 
55 91 109 A 

59 93 110 B-flat (A-sharp) 
63 95 Ш B (C-flat) 


То play each note, add it to 128 and POKE it into the 
register of your choice. To turn off the note, POKE a 
0 into the same register. 


HOW TO PUT MELODIES INTO THE 64 

The program Song Maker uses exactly the same sy: 
tem of entering melodies in last month's program. To re- 
view briefly, the music is entered in strings starting at 
line 9500. The MDS( ) string contains the duration of 
each note of the phrase, expressed as a number from 0 
to 9. (You can determine the actual length of each dura- 
tion value at lines 9100-9105.) 

The MES( ) string contains the pitches for each note 
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in the phrase, expressed as alphabetic characters from 
А to G. These correspond exactly to the notes of the musi- 
cal scale. To "sharp" a note, press SHIFT and the de- 
sired letter (C-sharp is SHIFT-C); to "flat" a note, press 
COMMODORE and the desired letter (B-flat is 
COMMODORE-B). To silence the voice (a musical rest 
or tacet), enter the @ symbol. 

The MVS( ) string selects which octave the note should 
be played in. It is a value from 0 to 6. You only need 
to enter a number when the octave chan; 
the melody is in the same octave, just enter a spa 
the strings for the same phrase must be exactly the same 
length. 

The program Summertime shows all the lines that need 
to be changed to enter a different melody. Once you have 
typed in and saved Song Maker, delete all the lines be- 
tween 9500 and 9890 and then type in all the lines shown 
with Summertime. The program will now play a differ- 
ent melody with different waveforms and envelopes. With 
this song, all three voices play the same pitch every time, 
but with different waveforms and envelopes; the com- 
bination can be surprisingly effective. 

The Song Maker program's chief value is that it trans- 
lates standard musical notes to the numeric form the 64 
can use, However, it is very time-consuming during the 
setup. The program provides three ways for you to get 
the pitch value to use directly in the program that you're 
creating. 
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First, the program will display each note's duration and 
pitch values on the screen, if you select the P option (press 
N to stop it from printing each note). 

Second, the program will save the entire song on disk 
in the file you name in line 200. Third, the program will 
rewrite itself if you select the MAKE DATA option. Make 
sure, however, that you have already SAVEd a version 
of the program with your new melody on it, because the 
MAKE DATA option destroys all the lines in which you 
entered the melody using musical notes. 

VITAL NOTE: no matter what else you do with this 
program, the variable Е$ must be the very first variable 
assigned in your program. This is because the machine 
language routine takes the current note information di- 
rectly from the very first variable in the variable table, 
which must be a string, and must contain the pitches of 
the notes for all three voices in order. 


HOW TO PUT MELODIES INTO THE VIC 

To use the program V/C Music, you can't use musical 
notation; you'll have to calculate the pitches yourself, us- 
ing the table printed above. Your routine for entering the 
melody should be placed at line 9100. The variable SL 
must be set to the total number of notes in the melody. 
Then you must assign the duration of each note to the 
string MDS and the pitches for each voice to the strings 
MIS, M2$, and M33. 

VITAL NOTE: it is absolutely essential that MD$, MIS, 
М25, and M3$ be the first four variables mentioned іп 
your program, in that order, because the machine lan- 
guage routine reads those string variables from the start 
of the variable table. Also, all four strings must contain 
exactly the same number of characters. 

Notice that the melody included with this program as- 
signs all the notes exactly the same duration. It could 
just as easily have read all the durations from a DATA 
statement, just as it now reads all the pitches. Also, no- 
tice that only M3S is assigned its pitches from the DATA 
statements. M2$ and MIS are then set to be the same 
as M3$. (Since M3$ has the highest voice, it will prob- 
ably be most useful as the melody.) 

Any pitch value from 0 to 127 will cause a note to be 
played, since it will be added to 128. If you want a note 
to be a rest or tacet, put it in the DATA statement as 128 
or greater, since line 910 converts any DATA value above 
127 to 0, which shuts off the sound of that voice until 
the next note. 

Half the fun, however, will come from your own ex- 
periments. Enter your own melodies and change the en- 
velopes to see what happens. 

(Note: If you program performs any cassette, disk, or 
RS232 operations after the sound routines are set up, they 
will have to be set up again, since the ML routines will 
be wiped out.) 

That's enough for this month. Next month we'll finish 
with sound by playing around with sound effects for the 
VIC and 64. Then we can get back to something we can 
see. (1 SEE PROGRAM LISTINGS ON PAGE 90 
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ost of us are well aware 
of the two types of 
memory inside our 
computers. We can 
hardly miss the signif- 
icance of random- 
cess memory (RAM), as the term is 
a prime selling point for most manu- 
facturers. The C-64 has 64 kilobytes 
of the stuff, which is used for the 
temporary storage of programs and 
data. The VIC 20 comes with only 
five kilobytes of RAM, with provi- 
sions for adding up to 35 kilobytes 
externally. Actually, both the C-64 
and the VIC 20 have an additional 
1,024 nibbles of RAM (a nibble is 
four bits, or half a byte) which is used 
for the screen color map. In the C-64, 
these nibbles share the address space 
at $D800-$DBFF (55296-56319) 
with the character ROM and the sys- 
tem RAM. 

Read-only memory (ROM) is not 
as well known to most users, since 
it plays a much smaller part in most 
promotional literature. Yet it is the 
programs in this permanent storage 
which give the computer its built-in 
personality. Both the VIC 20 and the 
С-64 are equipped with 20 kilobytes 
of ROM. The machine language pro- 
grams which make up BASIC 2.0 and 
the operating system require 16 kilo- 
bytes of ROM. The remaining four 
kilobytes store the patterns for the 
Commodore character set. Without 
this permanent storage, the compu- 
ter would be about as useful as a 
doorstop when first turned on. 

Early users of microcomputers 
were not nearly as fortunate. In those 
bygone days of yesteryear (the early 
708) the personal computer had to be 
initially programmed by hand via a 
series of switches. This would usual- 
ly allow for the loading of several 
hundred bytes of additional code, 
usually stored on a punched paper 
tape. This had to be done every time 
the computer was turned on. By the 
mid 705 things had improved some- 
what. ROMs storing as much as 256 
bytes had dropped in price to the 
point where a serious hobbyist could 
afford them. There was even talk of 
one kilobyte chips. As we shall short- 
ly see, we have come a long way. 
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РВОМ 
PROGRAMMING 
MADE EASY 


A Guide to Permanent 
Program Storage in 


Read Only Memory 


By Morton Kevelson 


PROGRAMMING 
YOUR OWN 

Several types of ROM are present- 
ly available. The kind that come in 
the VIC 20 and the C-64 are the 
mask programmable variety. These 
are used because of their extremely 
low cost (pennies per chip) in mass 
production quantities. For small users 
or hobbyists they are of little inter- 
est, as the initial setup costs are very 
high. The most popular type for indi- 
vidual users are the erasable pro- 
gramable read-only memories 
(EPROMs). These have always been 
considered essential tools by serious 
computer hobbyists. 

The Commodore PET series of 
computers were even equipped with 
several empty chip sockets for the ex- 
press purpose of installing addition- 
al ROM. In fact, these machines were 
not intended to have more than 32 
kilobytes of RAM. Some quirks in 
the VIC 20 and C-64 operating sys- 
tem are relics from these forerunner 
machii A notable example is the 
inability to perform a memory dump 
to tape from addresses above $7FFF 
(32761). 


The designs of the VIC 20 and the 
C-64 have placed less emphasis on 
personalized PROM programming. 
This is in spite of the fact that both 
machines have provisions for consid- 
erable software on plug-in ROM car- 
tridges. Nevertheless, supporting 
products for PROM programming 
have always been available for both 
computers. Those so inclined can 
readily avail themselves of this fas- 
cinating and useful technology. The 
state of the art is such that we feel 
at the very least every user group 
should consider acquiring the hard- 
ware for the convenience of their 
members. 

Burning a ROM once referred to 
the process of placing a program into 
permanent memory. ROMs are no 
longer burned. This term is a hold- 
over from the early days when some 
varieties of memory меге рго- 
grammed by literally burning open 
selected fusable links. This crude 
process has been replaced by the 
floating-gate avalanche-injection me- 
tal-oxide semiconductor transistor 
(FAMOS). These are specially fabri- 
cated field-effect transistors which 
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have the ability to store a minute elec- 
trical charge. In the discharged state 
the transistor looks like an open 
switch. This represents a binary one. 
When the charge has been placed, the 
switch is effectively closed to repre- 
sent a binary zero. An EPROM chip 
is actually an organized conglomer- 
ation of these devices on a tiny bit 
of silicon. 


HOW THEY WORK 

A factory fresh PROM is com- 
pletely discharged. In this state all the 
bits contain a one. If you were to ex- 
amine an unprogrammed PROM you 
would find that each byte contains the 
value of $FF (256). The program- 
ming process consists of three steps. 
First, the proper address is selected. 
Second, the information to be stored 
is placed on the data lines. Finally, 
a high programming voltage (usual- 
ly 24 volts) is placed оп the program- 
ming pin. This voltage has to be very 
carefully controlled. If it is applied 
for too long, damage to the chip may 
result. If it is applied for not long 
enough, insufficient charge will be 
deposited and the stored information 
will be unstable. 

ЕРКОМ$ have one other charac- 
teristic which makes them so desir- 
able as a development tool. Once the 
data has been properly programmed 
it is quite permanent, with a storage 
lifetime of many years. However, un- 
der the proper conditions, the data 
can be removed and the EPROM may 
be reused. In fact, with proper hand- 
ling, there is no limitation on the 
number of times this cycle may be ге- 
peated. The EPROM is erased by il- 
luminating the cells with ultraviolet 
light of a particular wavelength (2537 
angstroms to be exact). A quartz win- 
dow is thoughtfully provided on the 
chip package for this very purpose. 

A PROM programmer is a special- 
ized device designed to generate the 
necessary addresses, data, and pro- 
gramming voltages. A properly de- 
signed programmer will include 
enough built-in flexibility to handle 
a variety of EPROM types. 


THE EPROM FLAVORS 


EPROMs come in a variety of con- 
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figurations. The most popular now- 
adays are the 2700 series, where the 
memory cells are arranged in an ar- 
ray which is eight bits or one byte 
wide (that is, addressing a single lo- 
cation returns a full byte of data). In 
contrast, the RAM chips in the C-64 
are set up as a single bit per address. 
It takes eight chips in parallel to make 
up a single byte. 

Memory chip capacities are spe- 
cified in bits, not bytes. Thus, to ob- 
tain the chip's byte capacity, you have 
to divide by eight. The last two dig- 
its of the chip number represent the 
chip capacity in kilobits. For exam- 
ple, а 2764 contains 65,536 bits of 
storage capacity organized as eight 
kilobytes. Incidentally, the 2764 hap- 
pens to be the most popular PROM 
chip for hobbyists as of this writing. 
It offers the lowest cost per bit among 
the available chip sizes. It also hap- 
pens to be the capacity of the ROM 
chips used by the VIC 20, the C-64, 
and the 1541 disk drive for their op- 
erating systems. The 27128 is not far 
behind in a direct cost comparison. 
Its desirability hinges on placing 16 
kilobytes of storage in a single soc- 
ket. The 27256 (32 kilobytes) is also 
reasonably priced if you need the ca- 
pacity. The 27512 (64 kilobyte) holds 
a whopping half a million bits of data. 
As of this writing, it is still priced be- 
yond most hobbyists at several hun- 
dred dollars. However, we are all 
aware that prices in the semicon- 
ductor industry tend to drop rapidly 
as time goes on. 

The user should also be aware of 
the number of pins required for the 
different chips. The ROMs in the 
VIC 20 and the C-64 are in a 24-pin 
package. All the chips mentioned 
above come in a 28-pin package. The 
manufacturers have made the pin lay- 
outs very similar, so that an adapter 
can be easily constructed. A 24-pin 
variety of the eight kilobyte EPROM 
is available. The model MCM68764 
from Motorola fills the bill at a price 
which is currently five to six times 
as high as the 28-pin 2764. 

When shopping for chips, keep in 
mind the other factors that affect 
price. These are primarily speed and 
power consumption. Given the slow 


clock speed of the C-64, the former 
is generally not a problem. Unless 
you plan on assembling some large 


memory arrays, the power consump- 
tion is not significant either. 


ADDING MEMORY 
TO THE C-64 

The Commodore 64 was specifi- 
cally designed to allow for consider- 
able memory expansion. This may 
seem a bit odd in light of the multi- 
ple memory layers which already fill 
parts of the computer's memory space. 
Nevertheless, every time a cartridge 
is plugged into the expansion port, 
memory is added to the computer. 

For most game cartridges, this 
memory amounts to another eight or 
sixteen kilobytes of program on ROM. 
Generally, these cartridges are not 
true memory expansions, What ac- 
tually occurs is a replacement of in- 
ternal RAM and ROM by what is 
contained in the external cartridge. 
Most cartridges utilize only a small 
portion of the existing RAM. Thus 
à game cartridge can best be consid- 
ered as turning the C-64 into a dedi- 
cated game machine while it is in 
place. 

Some cartridges add to the C-64 
memory resources. The Super Ex- 
pander cartridge from Commodore 

ight kilobytes of ROM. 
When it's installed, the BASIC of the 
C-64 is enhanced by a set of graph- 
ics and sound commands. At the 
same time, eight kilobytes of BASIC 
RAM is hidden under the external 
ROM reducing available program 
space. The Super Expander cartridge 
does not waste this hidden RAM. It 
is utilized for the bit mapped graph- 
ics associated with the added BASIC 
commands. 

Perhaps the most ambitious expan- 
sion of C-64 memory to date in a fin- 
ished product is implemented by the 
Comal 2.0 cartridge. This contains 
the latest version of the Comal lan- 
guage on 64 kilobytes of ROM. As 
if this was not enough, an empty soc- 
ket is provided on the board for an 
additional chip with a capacity for up 
1o another 32 kilobytes. 

The all-time prize for user ехрап- 
Sion goes to the Jason-Ranheim Com- 
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pany who make an eight-socket 
board which can accommodate up to 
256 kilobytes of external ROM. 
Memory expansion need not be re- 
stricted to ROM. Additional RAM 
can be added to the expansion port. 
This is just the approach taken by the 
В. J. Brachman Co. with their CBUS 
П cartridge. We will be looking at 
both products later in this article. 


HOW IT IS DONE 

The designers of the Commodore 
64 provided for all this expansion by 
building considerable flexibility into 
the cartridge port. To actually see 
how this is done, we will have to dig 
a little deeper. There are two primary 
devices which control the memory 
configuration of the C-64. 

The first is a six-line /О port built 
into the 6510 microprocessor. The in- 
ternal hardware of the 6510 places this 
port at memory address 1. Its аѕѕосіа- 
ted direction control register is loca- 
ted at address 0. 

The second device is a custom de- 
signed integrated circuit, the Pro- 
gramable Logic Array (PLA). This 
s а collection of electronic 
is are all logic devices) de- 
signed for the express task of man- 
aging the memory configuration re- 
quirements of the C-64. Internally it 
is responsible for the sharing of mem- 
ory between the 6510 and the 6567 
VIC II chip. Externally it is the con- 
trol device for the expansion port. 

The expansion port can best be de- 
scribed as a full microprocessor bus. 
It brings to the outside world the en- 
tire set of eight data lines and sixteen 
address lines of the 6510. In addition, 
there are several control lines which 
are associated with the PLA. Two of 
these lines, EXROM (pin 9) and 
GAME (pin 8), are hardware inputs 
to the PLA. These are normally held 
to a logical one represented by +5 
volts in the C-64. The horizontal line 
over their labels indicates that their 
intented logical function is imple- 
mented when they are set to a logical 
zero or 0 volts in the C-64. 

When a cartridge is plugged into 
the expansion port, one or both of 
these lines are grounded. This caus- 
es some of the internal memory of 
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the C-64 to be replaced by whatever 
is in the cartridge. The affected mem- 
ory areas are the eight kilobytes of 
RAM from $8000 to S9FFF (32768 
to 40959). The eight kilobytes of 
BASIC ROM from $A000 to 5ВЕЕЕ 
(40960 to 49151) and the eight 
kilobytes of KERNAL ROM from 
5Е000 to SFFFF (57344 to 65535). 
These lines work in conjunction with 
two output lines at the port, КОМІ. 
(pin 11) and КОМН (pin В). The for- 
mer addresses in the eight kilobyte 
$8000 block, while the latter controls 
either the 5А000 or the SEO00 block. 

The effect of all four of these lines 
can be further modified by the 6510 
ПО control port at address 1. This 
can be used to switch between ROM 
(either internal or external) and the 
built-in RAM that occupies the same 
address space. Some cartridges e: 
ert direct control of the hardware 
memory configuration by placing 
electronic switches at the PNG 
and GAME lines. Th: 

аге access 

ticular address for their control. Ad- 
ditional RAM or ROM сап be 
switched in or out, usually in eight 
kilobyte banks, by installing addition- 
al control logic on the cartridge. This 
s the technique used by the Comal 
cartridge mentioned above. 


SOME PROM 
APPLICATIONS 

Most of us are familiar with the 
dozens of games and applications 
programs available in cartridge forms. 
The C-64 and VIC 20 offer other 
possibilities for custom ROMs. These 
range from changing the character 
set to direct modifications to BASIC 
and the operating system. The default 
language could even be changed. 
How about a C-64 that understands 
FORTH or PASCAL? Think of all the 
possible applications for dedicated 
autostart programs. This would allow 
the computer to be used as an unat- 
tended control device without the 
need for a disk drive or cassette deck. 
The list is endless. The three reviews 
that appear on the succeeding pages 
present some interesting products 
which offer some unique ideas of 
their own. O 


THE PROMENADE 
PROM DEVELOPMENT 
SYSTEM 


According to Webster's New World 
Dictionary, to "promenade" is to "go 
for a walk.” According to the Jason- 


The Promenade inside and out. The 
4 x 5" package installs in user port. 


Top: the PCC-8 board; bottom left: 
the PCC-4; bottom right: the PCC-2. 


Adaptor that converts a 28-pin 2764 to 
24-pin format compatible with 64 & VIC. 


Ranheim Company, the Promenade 
model СІ is the heart of a ROM pro- 
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gramming system for use with the 
Commodore 64 or the VIC 
Stand-alone ROM programmers are 
relatively expensive items. Much of 
the expense resides in supplementary 
hardware requirements. These in- 
clude memory for data and control 
program storage, a controlling micro- 
processor, and of course a power sup- 
ply. The Promenade utilizes the ex- 
isting facilities of the computer to cre- 
ate a very effective ROM program- 
ming environment. The capabilities 
of a Promenade with a C-64 or a VIC 
20 and a 1541 disk drive actually ex- 
ceed those of more expensive dedi- 
cated units. That includes the cost of 
the computer and disk drive. 

VIC 20 users take note. The Prom- 
enade system will function properly 
without any memory expansion. 
However, programming ROMs which 
exceed the memory capacity of the 
unexpanded VIC 20 will be some- 
what inconvenient. A minimum of 
eight kilobytes of expansion RAM is 
recommended. 


THE HARDWARE 

The Promenade itsel: slim 4% 
x 5" package in a brushed aluminum 
case. In use, it is installed in the com- 
puter's user port. The top surface of 
the Promenade is dominated by the 
28-pin zero insertion force (ZIF) dual 
in line package (DIP) socket fl: 
by green, red, and yellow indicating 
lights. These light emitting diodes 
serve to indicate the status of the sys- 
tem at all times. The first (green) 
simply displays the presence of pow- 
er to the Promenade. The second 
(red) indicates when the ZIF socket 
is energized, such as during a ROM 
read operation. It also serves as a 
warning not to insert or remove a 
PROM when it is lit. The third (yel- 
low) alerts the user to a ROM pro- 
gramming activity. It also flashes 
when some kind of programming er- 
ror takes place. 


THE OPERATING 
SYSTEM 

The PROMOS software, supplied 
on either cassette or disk, makes 
the reading and programming of 
PROMs a snap. PROMOS is de- 
signed to let the user work with a 


PROM in a fashion which is very 
similar to using the cassette or disk 
drive. In fact. PROMOS assigns de- 
vice number 16 to the Promenade. 
When activated, PROMOS behaves 
very much like a DOS wedge. It 
makes full use of the computer's op- 
erating system. Programs can be 
LOADed and SAVEd. Files can be 
OPENed and CLOSEd. Data can be 
written with the PRINT# and CMD 
commands and retrieved via the 
GET# and INPUT# commands. 
There is even a directory command, 
the dollar sign ($), which returns the 
contents of the ROM. 

PROMOS reserves part of the 
ROM space for the directory infor- 
mation. Unlike the disk drive, the 
PROMOS directory is spread out 
through the ROM with the associated 
files. A series of links, similar to 
BASIC’ internal line links, keeps 
track of each file's relative position. 
Complete details of the PROMOS file 
structure are included in the twenty- 
page manual. 

The PROMOS file-oriented oper- 
ation requires the presence of the 
Promenade to function. This limits 
the capacity of the PROM filer to 
what can be stored in a single chip. 
The Promenade can handle chips 
with a capacity of up to 512 kilobits 
(64 kilobytes). As mentioned earli- 
er, chips with this capacity are still 
quite expensive. Thus most users will 
limit themselves to eight or sixteen 
kilobytes of online storage. A useful 
enhancement to PROMOS would ex- 
tend this file-structured operation to 
the PCC-2, -4, and -8 expansion 
boards discussed below. This en- 
hancement would allow for the crea- 
tion of a ROM disk with up to a quar- 
ter megabyte capacity. 

PROMOS also includes two direct 
memory commands, the Greek letter 
pi and the British pound symbol. 
These allow for the direct bidirection- 
al transfer of data between the com- 
puter's memory and the PROM. Тһе 
command syntax is very similar to 
that used by most machine language 
monitors. PROMOS has been de- 
signed to be highly compatible with 
most machine language monitors. 
The commands will generally work 
from within a monitor, although an 


occasional question mark indicating 
a monitor syntax error does appear. 
The solution is usually just to reis- 
sue the command. The manual rec- 
ommends Hesmon for use with 
PROMOS. A cartridge-based version 
which includes PROMOS and а DOS 
wedge is available for $24.95. We 
found that PROMOS seemed to work 
well with Micromon, a very power- 
ful public domain machine language 
monitor. 

The Promenade has enough built- 
in flexibility to handle a large vari- 
ety of EPROMs of varying capacities 
and types. PROMOS accepts two par- 
ameters which allow the system to 
distinguish among the various types 
of EPROMs. The “control word” 
number tells the operating system 
which type of EPROM is being used. 
The manual lists 23 PROM types, to 
which the 27512 has recently been 
added. This includes the 48016Р, 
which is an electrically erasable de- 
vice (EEPROM) for which PROMOS 
includes a special erase command, 

The second parameter lets 
PROMOS optimize the programming 
operation. The Program Method 
Word (PMW) selects from four 
methods of PROM programming. 
One is based on the chip manufac- 
turers recommendations. The other 
three are "intelligent" methods which 
optimize programming time. The 
method developed by Jason-Ranheim 
uses a series of increasingly longer 
pulses till the data has been verified. 
Thus for an eight kilobyte ROM, 
which would normally take seven 
minutes using the standard method, 
we found programming times as short. 
as 30 seconds with the Jason- 
Ranheim method. 

PROMOS was kept as brief as pos- 
sible to minimize its memory re- 
quirements. The code 15 fully relocat- 
able by simply changing the top-of- 
memory vector before RUNning it. 
This brevity does leave the program 
open to operating problems. Under 
some conditions it is possible to crash 
the program while all of the Prom- 
enade lights are still on. If a PROM 
is in the socket, damage to the chip 
might result. A hardware protect 
switch to disable the socket could be 
a useful addition. 
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OTHER SUPPORT 
PRODUCTS 

Jason-Ranheim offers several cir- 
cuit boards for installation in the 
computer expansion port. A VIC 20 
board (PVC-2) and a C-64 board 
(PCC-2) priced at $6.95 each support 
up to two eight-kilobyte ROMs. For 
the VIC 20, any one of the four eight- 
kilobyte expansion blocks can be 
used. The C-64 board uses the two 
eight-kilobyte blocks located at $8000 
to $BFFF. Instructions are provided 
on how to store a BASIC program in 
ROM which will autostart when the 
computer is turned on. Two program 
listings are provided, one which 
RUNS the program from cartridge 
memory and the other which down- 
loads the program to the usual BASIC 
memory space before RUNning. 

Also available are two additional 
bank switching circuit boards. The 
PCC ($19.95) will accommodate up 
to four ROMs with either an eight-, 
sixteen-, or thirty-two kilobyte capa- 
city for a total of 128 kilobytes of add- 
on memory. This memory will ap- 
pear in eight-kilobyte bank switched 
chunks at the $8000 block. The bank 
select register can be located at ei- 
ther SDFFF (57343) or $DEFF 
(57087). Any eight-kilobyte bank or 
none at all can be switched in or out. 
The PCC-8 ($29.95) is similar, ex- 
cept eight sockets are provided for up 
to 256 kilobytes of external ROM. 
Complete instructions are included, 
along with a DOWNLOAD/RUN pro- 
gram for installing up to 38 kilobytes 
of program with an autoboot routine 
in ROM. 

Before you go running off with vi- 
sions of putting all your favorite ap- 
plications in nearly instantaneously 
bootable form, keep several things in 
mind. Most commercial software is 
copy protected and in machine code. 
It will require a fairly knowledgeable 
user and some time to extract the pro- 
grams and put them into the proper 
format for use with this method. So 
if you have the programming capa- 
bility this presents an excellent way 
to get your favorite word processor, 
spreadsheet, and database all online 
at one time. 

No PROM programming system 


32 AHOY! 


http: 


wv lia.net, 


would be complete without some 
means of erasing a previously pro- 
grammed PROM. Jason-Ranheim 
does not make an ultraviolet eraser 
of their own, but they will supply 
“hobbyist” and “industrial” versions 
of these devices for $34.95 and 
$79.95 respectively. 


CONCLUSIONS 

The Promenade is a good general 
purpose PROM programming sys- 
tem. Some unique support products 
make it very attractive to the mod- 
erately advanced user. The built-in 
hardware and software flexibility, 
coupled with some excellent techni- 
cal support, make it a good choice 
for turning the C-64 or VIC 20 into 
a PROM development system. 

The Promenade is available for 
$99.95 with the supporting software 
on tape or disk. О 


ADDENDUM 

Jason-Ranheim is continuously 
coming up with new uses for the 
Promenade. As we went to press we 
received word of a new four-socket 
expander board (PRB-4) similar to 
the PCC-4. The PRB-4 is designed 
to accommodate two eight-kilobyte 
PROMS and two eight-kilobyte ВАМ 
chips. An onboard battery backup al- 
lows the RAM to retain data after the 
C-64 has been turned off. According 
to John Ranheim, president of the 
company, the PRB-4 is being used as 
an aid for educating the homebound 
handicapped. An examination is pro- 
grammed into the PROMs. The stu- 
dents answers are stored in the 
RAM. The battery backup retains the 
data for subsequent grading under 
computer control. Price is $24.95. 


CBUS | & Il: 
THE CARTRIDGE BACKUP SYSTEM 


RJ. Bra 


The CBUS (Cartridge BackUp 


System) is a product which will un- 
doubtedly evoke considerable contro- 


versy. It is marketed with the primary 
intent of allowing a user to copy and 
use the software which is stored in 
the ROM chips of a Commodore 64 
program cartridge. This attitude, 
while probably reflective of good 
marketing sense, is somewhat unfor- 
tunate. As we shall see, the CBUS 
package does have a valid purpose in 
the C-64 scheme of things. 


THE HARDWARE 

CBUS is primarily a hardware ac- 
cessory. The total system consists of 
two parts available separately or as 
a package. 

The CBUS I is essentially a sin- 
gle slot expansion port extender 
board. This in itself is unremarkable. 
What makes the CBUS I unique is 
the inclusion of an eight position DIP 
switch. There is also a reset push but- 
ton which does come in handy at 
times (see the May '85 Ahoy! for 
more on reset buttons), The DIP 
switches intercept the four cartridge 
control lines which were described 
in the introduction to these reviews. 
By properly manipulating these 
switches, the particular configuration 
of nearly any 16 kilobyte cartridge 
can be determined. Once this is 
known, the cartridge contents can be 
downloaded to disk. This can easily 
be done with a machine language 
monitor or with the custom program 
listed in the manual. 

Once on disk the cartridge can be 
dispensed with. The program can be 
then loaded into the С-645 resident 
RAM and RUN from there—well, al- 
most. As it turns out, very few car- 
tridge-based programs are directly 
amenable to this sort of treatment. 
For various reasons, most cartridge 
software will require some modifica- 
tions to RUN in this fashion. Since 
these programs are nearly always 
written in machine language, this task 
is not for the uninitiated. A select 
number of cartridges cannot be so 
converted, as they utilize the under- 
lying RAM which shares their pro- 
gram space. 

This is where CBUS II comes into 
the picture. Although it physically re- 
sembles the typical cartridge which 
it is intended to replace, internally 


there is a world of difference. In place 
of the expected ROM, the CBUS II 
contains sixteen kilobytes of static 
RAM. To complete the picture, the 
CBUS II contains a hardware “рег- 
sonality latch" which allows the RAM 
to emulate any of seven possible 16- 
kilobyte cartridge configurations 
which are available for the C-64. 

То complete the picture, a program 
listing is included with the documen- 
tation which will LOAD in a car- 
tridge "snapshot" and configure the 
personality latch accordingly. Once 
loaded, the cartridge program can be 
started by locking the latch with the 
ВОМ/ЗЕТ switch and then hitting the 
cartridge reset button. 


THE DOCUMENTATION 
ich of the CBUS modules come 
with its own instruction manual. The 
CBUS I manual provides a thorough 
description of the various cartridge 
configurations. Included are complete 
instructions on how to identify a car- 
tridge with the CBUS I. Two brief 
programs are listed which allow you 
to create a menu-driven disk-loaded 
version of all your cartridges. Тһе 
manual also includes a detailed 
breakdown of all the possible C-64 
memory maps and how they are crea- 
ted. This is one of the most compre- 
hensive discussions we have come 
across on the subject. The interaction 
between the 6510 internal control port 
located at memory addresses 0 and 
1 and the hardware control lines is 
meticulously detailed. 

The description in the CBUS II 
manual is limited to the basic oper- 
ation of ће CBUS П cartridge as а 
cartridge emulator. It includes a pro- 
gram listing especially suited to the 
unique hardware of the cartridge. 
Both manuals include source code 
listings of the machine language por- 
tions for reference purposes. For ad- 
vanced users, a full description of the 


ion on using the 
CBUS П as a cartridge program de- 
velopment tool. 

Several pamphlets were included 
with the package. These appear in a 
newsletter format. They deal with the 
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specific nuances of particular car- 
tridges for working with the CBUS 
system. One pamphlet lists the CBUS 
issifications for 75 commercially 
available C-64 cartridge programs. 
The entire package is intended to 
let the average user copy and run car- 
tridge-based software. The CBUS I 
and II manuals include detailed pro- 
cedures on the proper use of their re- 
spective hardware and software. 
As we went through the manuals, 
one area for improvement became 
evident. The largest manual was a bit 
over twenty pages. There was con- 
siderable amount of duplication of in- 
formation across all three manuals. 
A significant percentage of each man- 
ual consists of overhead such as in- 
troductions, tables of contents, and 
copyright and warranty noti: We 
feel that both manufacturer and end 
user would benefit if the manuals 
were consolidated into one book. 


CBUS-I allows the user to examine the 
contents of any Commodore 64 cartridge. 


Ёш... 


CBUS-II contains 16 kilobytes of static 
RAM with cartridge emulation circuitry. 


THE SOFTWARE 

If you opt for CBUS I Deluxe or 
the complete package, you will get 
all of the appropriate software on 
disk. This includes a menu genera- 
tor program for use by either of the 
loader programs. Also included are 
two versions of Jim Butterfield's Su- 


permon and a Mini-Monitor designed 
specifically for use with the CBUS 
package. The latter is a hybrid of ma- 
chine language and BASIC. Overall 
we found the provided support pro- 
grams to be effective but lacking in 
polish. But then again, their brevity 
is considered a virtue for this рапіси- 
lar application. 


WHAT IT'S GOOD FOR 

The manufacturer places primary 
emphasis on the benefits of transfer- 
ring cartridge software to disk. The 
saving of wear and tear on the car- 
tridge port is one case in point. Ad- 
ditional benefit is to be obtained by 
the reduction of storage requirements, 
as several cartridges can be kept on 
one disk. Also touted was the con- 
venience of being able to load pro- 
grams directly from disk. We leave 
the evaluation of these considerations 
to the end user. We did feel that being 
able to rapidly swap cartridges held 
the edge in convenience. 

We would have liked to see addi- 
tional emphasis placed on the capa- 
bilities of the CBUS II as a cartridge 
development system. In this light, it 
would make an ideal companion to 
either of the ROM programmers in 
the accompanying reviews. Being 
able to try out a cartridge-based pro- 
gram in a total cartridge emulator 
without the need to continuously 
erase and reprogram a ROM is a con- 
venience worth looking into. 

Although the CBUS II cartridge in- 
cludes sixteen kilobytes of RAM, do 
not expect to use it as expansion 
memory. The design of the CBUS II 
and its associated personality latch 
prevents simultaneous read and write 
operations to its RAM. The hardware 
can be configured to store data into 
the RAM or to read the data from it, 
but not both. To engage in two-way 
communication with CBUS II, your 
software would have to continuously 
reconfigure the personality latch. 


CONCLUSION 

The CBUS is an effective tool for 
manipulating cartridge firmware. The 
CBUS П is a valid cartridge devel- 
opment tool as a total cartridge emu- 
lator. If you already own an expan- 
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sion chassis for your C-64, then you 
may consider adding the CBUS 1 
switches yourself. Although it does 
involve some soldering and cutting of 
printed circuit traces, it is not an over- 
whelming task. CBUS I sells for 
$34.95. CBUS II is $84.95. Ап ad- 
ditional $15.00 gets you CBUS I De- 
luxe, with the associated software on 
disk. The entire package can be had 
for $119.95. O 


CARTRIDGE-MAKER-64: 
EPROM PROGRAMMING FOR- 
THE MASSES 


The Cartridge-Maker-64 system 
simplifies EPROM programming so 
that anyone can do it. The entire chip 
selection process, along with the need 
to handle individual chips, has been 
eliminated. This operational simpli- 
city does have its limitations. The sys- 
tem is designed to program only one 
type of EPROM, the 64 kilobit (eight 
kilobyte) 2764. 


THE HARDWARE 

A complete Cartridge-Maker-64 
system consists of four components: 
the Cartridge-Maker-64 itself, a car- 
tridge eraser, a blank Cartridge-64, 
and the user manual. These are avail- 
able as a complete kit or as individ- 
ual components. 

The central component is the Car- 
tridge-Maker-64, an EPROM pro- 
gramming module designed to pro- 
gram one or two type 2764 EPROMs. 
This 4 x 6 x 1'4” module fits into the 
computer's expansion port. An edge 
board connector at the back of the 
module accepts standard Commodore 
64 program cartridges. A three-po- 
sition toggle switch controls the pow- 
er to this connector. The electrical 
status of the connector is indicated by 
a pair of light emitting diodes: a 
green one to indicate the presence of 
power and a red one to indicate pro- 
gramming activity. 

Hidden inside this black box is the 
PROM programming and control cir- 
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cuitry. This allows the single switch 
to electrically isolate the Cartridge- 
Maker-64 connector. When the 
switch is in the OFF position, it is 
safe to insert or remove a cartridge 
without turning off the computer. 
Also included in the package is an 
eight kilobyte operati 
ROM. This program takes care of all 
the cartridge reading, writing, and 


Cartridge-Maker-64 lets you program 
up to two 2764 ЕРКОМ5 at one time. 


The built-in ultraviolet light source 
allows you to erase your EPROMs. 


| 
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A Cartridge-Maker-64 cartridge. Cen- 
ter: EPROMS installed. Right: bare. 


user interface tasks. The system is 
flexible enough to allow for the com- 
plete programming of a sixteen kilo- 
byte cartridge without the need for a 
disk drive or cassette deck. 

The cartridges designed for use 
with the Cartridge-Maker-64 are sim- 
ilar, but not identical, to commercial 
C-64 cartridges. Each Cartridge-64 
comes fitted with a pair of type 2764 
eight kilobyte EPROMs permanently 


soldered into place. The board’s cir- 
cuitry is designed to allow the 21 volt 
EPROM programming voltage to be 
applied by the Cartridge-Maker-64. 
The board is also fitted with a six po- 
sition DIP switch for setting Car- 
tridge-64 to any of four standard C-64 
cartridge configurations. These con- 
sist of eight kilobyte cartridges at the 
58000 or 5Е000 blocks or sixteen 
kilobytes at the $8000/$А000 or 
$8000/$E000 blocks. The EPROMs 
may be programmed individually or 
in pairs. This allows up to two 
Commodore 64 cartridges to be 
copied onto one Cartridge-64. 

The Cartridge-Eraser is an ultra- 
violet light source designed to erase 
à Cartridge-64 in less than ten min- 
utes. A safety interlock is built into 
the top of the case to prevent acci- 
dental exposure to the ultraviolet light. 
This light is intense enough to cause 
damage to the eyes. The switch is ге- 
cessed inside the top cover well away 
from accidental activation. However, 
it is readily reached by prying fingers. 
Avoid this temptation and keep the 
eraser away from small children. 

Although the hardware is speci 
cally designed for PROM program- 
ming in the C-64 cartridge configur- 
ation, the system can be easily 
adapted for the programming of indi- 
vidual type 2764 РВОМ chips. А 
bare Cartridge-64 printed circuit 
board is available for 512. You will 
have to install your own six or eight 
position DIP switch for chip selec- 
tion. Two 28 pin DIP sockets should 
also be soldered onto the board. 
These should be of the zero insertion 
force (ZIF) construction. When com- 
plete you will be able to easily pro- 
gram 2764s, individually or in pairs, 
with the Cartridge-Maker-64 system. 


THE FIRMWARE 
Cartridge-Maker-64 comes with its 
own built-in menu-driven software in 
an autostart ROM. The opening 
menu lets you select the screen col- 
ors. This is followed immediately by 
the main menu with the nine system 
selections. The first of these is the 
Cartridge to Cartridge utility. This 
function will automatically identify 
the original cartridge type and read 
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the data into memory. You will then 
be instructed in the proper switch set- 
tings for the Cartridge-64. Simply fol- 
low the prompts for switching car- 
tridges and setting the program con- 
trol switches. 

Cartridge-64 will not work with 
cartridges designed for switching be- 
tween external ROM and C-64 inter- 
nal ROM or RAM. These cartridges 
are equipped with onboard hardware 
latches that Cartridge-64 does not 
emulate. 

The next two main menu choices 
deal with the placing of BASIC pro- 
grams into cartridge. This will let you 
create an autostart cartridge without 
any knowledge of machine language. 
When the computer is turned on the 
program will be automatically down- 
loaded into the normal BASIC pro- 
gram nd RUN from there. The 
program can even be STOPed, 
LISTed, and modified as desired. 
BASIC programs in cartridge are lim- 
ited to a maximum length of 8,000 
bytes by the Cartridge-Maker-64 sys- 
tem. The presence of the Cartridge- 
64, which contains the BASIC pro- 
gram, also reduces BASIC program 
space to thirty kilobytes. Placing a 
BASIC program into a cartridge is a 
simple way to create an autostart pro- 
gram which will not require a disk 
drive or cassette deck to LOAD and 
RUN. 

The next two menu choices allow 
for the transfer of data between car- 
tridge and memory. These are the ba- 
sic 2764 programming modes. Loca- 
tions $6000-S9FFF serve as а buf- 
fer area in the C-64. You will have 
to LOAD these buffer areas with the 
appropriate data before using these 
menu choices. 

The next four main menu selec- 
tions deal with the transfer of data 
from disk or tape to or from a C-64 
cartridge. Cartridge-Maker-64 disk 
files are sequential files. Tape files 
are program files. Included in all files 
is information on the original cart- 
ridge type in addition to the program 
data. 

The last menu choice lets you exit 
to BASIC. A simple SYS call will en- 
able you to reactivate the Cartridge- 
Maker program. 


THE MANUAL 

АЙ of the Cartridge-Maker-64 sys- 
tem features are thoroughly described 
in the thirty-page user's manual. The 
presentation is geared to the user with 
a minimum of technical background. 
However, some understanding of the 
C-64 memory structure is needed to 
obtain the maximum benefit from this 
system. Complete details of the Car- 
tridge-Maker file structures, as well 
as descriptions of the various C-64 
memory maps, are included. 


CONCLUSION 

Тһе Cartridge-Maker-64 system is 
certainly an easy-to-use EPROM pro- 
grammer. This ease of use incurs a 
substantial penalty with regard to 
overall flexibility. The system is lim- 
ited at best to the programming of a 
single type of EPROM. Although 
considerable emphasis is placed on 
the copying of cartridges, it is unlike- 
ly that this will be cost effective. An 
entire system, including the eraser 
and programming modules as well as 
a single sixteen kilobyte module, sells 
for $189. Additional sixteen kilobyte 
modules, with EPROMs, are $25 or 
five for $115. The system can be used 
to minimize program development 
times by allowing BASIC programs 
to be placed into cartridges. This stor- 
age medium is suitable for custom 
applications in unattended locations 
where the harsh environment may 
preclude the use of a disk drive. 
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RUPIERT REPORT 


Some Assembly Language Help for Bit-Map Graphics 


By DaleW Rupert 


е saw last month that BASIC is very sluggish 
when it comes to manipulating the 64,000 pix- 
| els in high resolution bit mapped graphics. This 
month we will develop two assembly language 
routines to help speed things up. The first routine does 
nothing more than clear the 8000-byte bit map memory. 
The second routine performs the calculations necessary 
to locate a pixel on the screen and puts it there. 
When we are finished this month, we will have a some- 
what cumbersome interface to BASIC. We must still 
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POKE X and Y values in order to plot the point (X.Y). 
We will not be able to draw lines instantly between any 
two points. But we will have the groundwork on which 
to build other capabilities in the future. We will create 
some very diverse assembly language modules. Conse- 
quently, you may find this article useful as a machine 
language tutorial. 


PRELIMINARIES 
The BASIC program on page 89 (Listing 1) is similar 
АНОУ! 
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You’ve Tried The Rest... 
Now Try The Best!" 


A clever advertising slogan? Perhaps. Bul we at Artworx have 
found that phrase 10 apply 10 our ALLEGRO advanced music 
synthesis program. Most о! our registered ALLEGRO 
Customers already own at least one of the "better selling 
music programs for the Commodore 64. So why do they con- 
tinue to spend good money for yet another music program? 
Mostly because the other programs are not complete. They 
may produce nice music, but won't allow that music to be put 
into à computer program; or they have fancy “slider” controls 
for ADSR envelopers but have an impossibly difficult means о! 
music entry; or they have fancy joystick controlled note entry 
but don't play worth a darn. Not so with ALLEGRO. 


ALLEGRO 15 DIFFERENT 


ALLEGRO is a complete music synthesis program. By that we 
simply mean that ALLEGRO does everything required to obtain 
professional quality electronic music. It does it well, it does it 
easily and it does it intelligently - with no distracting gimmicks 
for the sake of gimmicks. And it does it all on one disk. You will 
по! have to spend an extra $35 for a “synthesizer” disk or $25 
tor а disk that allows you to play music from the keyboard. And 
you won't be frustrated by incomplete instructions - ALLEGRO 
Comes with over 70 pages of extensive documentation taking 
you from theory to application and all points in between. It even 
Contains helpful information on hooking up your stereo to the 
computer and including your music in your own BASIC or 
assembly language programs. One review stated that 

ALLEGRO "..із a technical work of art. The demo songs аге 
truly stunning, the 74-page manual is worth the purchase price 
for its clear discussions of music and digital sound. 


ALLEGRO'S FORTE EDITOR 


ALLEGRO consists of four parts: the Editor, the Instrument 
Builder, the Registers Control and the Modulations Control. The 
Editor is used to enter and edit your music. This is accomplish. 
ed using the specially developed FORTE music notation 
language. It is the fastest method of inputting a musical score 
easily beating out the the best of the joystick controlled "note 
and staf” methods, and very simple to use for modifying or 
correcting your music. With the FORTE editor, you will be able 
to create music that can use up to 85 different instruments in 
опе piece, or choose any of the 50 pre-programmed instru- 
ments that come with the program. ALLEGRO gives you the 
widest flexibility in musical range, it handles notes as short as а 
64th triplet and has over 900 tempo settings. Each piece can 
contain over 5800 individual notes (!) and endless repeats. The 
dynamic range spans not only eight audible octaves, but five 
additional sub audible octaves for special effects! 


INSTRUMENTS, 


Every music program comes with pre-programmed instruments, 
but ALLEGRO has over 50 ranging from harpsichord to drums 
to bagpipes. Every music program allows you to change instru- 
ments within а piece, but ALLEGRO gives the user the flexibili- 
ty of selecting any of up to 85 instruments. And any of these in- 
struments can be modified or replaced by another group of 85 
user-defined instruments. Coupled with ALLEGRO's use о! 
registers and modulations (using over 20 oscillators available 
within the Commodore 64), all sorts of unique instrumental 
sounds are at your disposal 
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SPECIAL EFFECTS AND FEATURES 


ALLEGRO's Registers and Modulations controls give you more 
control over your performance than with any other program 
available. ALLEGRO supports all possible filter and cut-off 
combinations, and resonances 100. It provides ring modulator, 
phaser and heavymetal effects (250 levels) as well as ad 
justable vibrato and siren effects. It has pulse width sweeps for 
fuzz bass and realistic piano sounds as well as filter sweeps for 
wah-wah and dynamic timbre changes. And once a composition 
has been completed, it can be stored as an interrupt driven 
PASSKEY file which can be called from the user's own program 
by a one line instruction. A PASSKEY file can hold a maximum 
of 41 songs and requires only 4K from BASIC regardless of the 
amount of music that it contains! 


PERFORMANCE FEATURES 


ALLEGRO can turn your Commodore 64 into a real time 
musical instrument allowing you to play along with pre- 
programmed background rhythms directly from the keyboard. In 
fact, you will find that the ALLEGRO keyboard layout is com- 
patible with certain add-on piano style keyboards. There are 
two performance modes: monophonic, for playing single notes 
along with a background track, and polyphonic, using three 
voices and simultaneous keystrokes allowing real chords to be 
played. During performance, you will be able to change instru- 
ments, octaves, vibrato, staccato, wah wah and more with just 
one keystroke! 


SUMMING IT UP 
As you can tell, we're pretty keen on this program. It's the 
perfect program for the beginner because of its straightforward 
layout and clear documentation. It's the pertect program for the 
knowledgeable user because of its flexibility and ease of music 
entry and transcription, and it's the perfect (if only) program for 
the professional because of its completeness and capabili- 
ties—it has already been used to create the music for at least 
two best-selling Commodore programs. With ALLEGRO, Art- 
Worx has provided all the necessary tools, the ALLEGRO user 
is limited only by imagination. 


No, ALLEGRO does not come free. It costs $39.95 and if you 
buy it direct from Artworx, it will cost you an additional $2.00 
for postage (and New Yorkers will have to pay sales tax), What 
ме will include at no extra cost is ап ‘ALLEGRO sampler disk 
containing over 40 musical selections contributed by 

ALLEGRO users. Ranging from baroque to punk, these selec- 
tions provide hours and hours of unique musical composition, 
No, you will not find "Home On The Range" or "Jingle Bells” 
оп this disk! There is one catch, however: we must receive 
your order before July 31, 1985. Call toll-free: 1-(800)-828-6573 
ог send check or money order. VISA or MasterCard gladly 
accepted. 
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to the program we discussed last month. To begin, let's 
review the concepts and procedures involved in high res- 
olution bit map graphics. 

The bit map consists of 8000 bytes beginning in RAM 
at location 8192. Each of those 64,000 bits corresponds 
to a specific dot or pixel (picture element) on the screen. 
If a bit is set to one, the pixel is one color, and if a bit 
is reset to zero, its pixel is another color. The screen ap- 
pears as an array of 320 (horizontal) by 200 (vertical) 
pixels. 

The 1000 bytes of normal screen memory from loca- 
tions 1024 to 2023 each store two nybbles of color data. 
The color resolution is 64 bytes. That means each byte 
of color data applies to 64 pixels on the screen. The data 
in location 1024 defines the possible colors for the 64 
pixels in the upper left (eight-by-eight) corner of the 
screen. Similarly, the data in location 2023 defines the 
colors for the lower right corner. There are 16 possible 
colors to choose from, but each eight-by-eight block of 
pixels will consist of any two of those colors. 

Some examples should clarify all this. Assume loca- 
tion 1024 contains the value $24 (i.e. decimal 36—the 
"$" signifies a hexadecimal value). The possible colors 
of the 64 pixels in the upper left corner of the screen 
are red and purple. To understand this, refer to the color 
values listed in Appendix D of the Programmer's Refer- 
ence Guide (PRG) or Appendix G of the Users Guide. 
Red has a value of 2; purple has a value of 4. The hexa- 
decimal number with one nybble of 2'and the other nyb- 
ble of 4 is the value to select the colors red and purple. 

То select light red and light blue for the lower right 
corner, put 174 (5АЕ) or 234 (5ЕА) into location 2023. 
Light red has a value of 10 (SA), light blue has a value 
of 14 (SE). The hexadecimal color code is then SAE or 
$EA. To convert to the decimal equivalent, multiply the 
first value by 16 and add it to the second: 16410 + 4 
equals 174. 

The first color code (most significant nybble) corre- 
sponds to the pixels whose bit map memory bits are set 
to one, and the second color code is for the pixels whose 
bits are reset to zero. 

The chart on page 125 of the PRG shows the rather 
complicated addressing structure of the bit map memory. 
The formulas for locating the correct memory location 
and the bit within that location for a particular pixel are 
contained in lines 400 to 420 of the BASIC program in 
Listing 1. 

We saw last month that to use bit map graphics mode 
we must define the starting location of the bit map mem- 
ory by setting bit 3 of VIC-II register 24. Then we must 
set bit 5 of VIC-II register 17 to enter bit map mode. 
Those functions are performed in lines 40 and 50 of the 
BASIC program in Listing 1. The user-defined functions 
FNSB and ЕМЕВ are “set bit" and “reset bit" functions. 
The statements MM=VV+24 : POKE MM, FNSB(3) 
set bit 3 of location MM, where MM has the address 
of VIC-II register 24. 

The program in Listing 1 may be run without creat- 
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ing the machine language routines we are discussing here. 
Once you have assembled the two programs with file- 
names CLSCRN.O and PLOT.SC.O and have them avail- 
able on disk, you may delete lines 65 and 265 of Listing 
1. Then the two machine language programs will be used 
instead of their BASIC equivalents. (If you prefer to get 
CLRSCR.O and PLOT.SCO up and running without as- 
sembling them, we've provided Flankspeed listings of 
each on page 89.) 

It takes an interminably long time (roughly thirty sec- 
onds!) for BASIC to clear the 8000 bytes of bit map mem- 
ory using a FOR-NEXT loop. In this type of applic: 
tion, machine language really shines. Let's see what it 
takes to speed up the screen-clearing process —by a fac- 
lor of 135 or more! 


NOW YOU SEE IT 

The CLRSCR O assembler listing puts zeroes into 8000 
consecutive locations beginning at address 8192 ($2000). 
The programs in this article were assembled with the 
Merlin 64 macro assembler. The main differences be- 
tween listings from different assemblers are the assem- 
bler di „ more commonly known as pseudo-ops. 
Pseudo-ops look somewhat like the genuine-ops, the 
mnemonic op-codes of the 6510. Actually they're instruc- 
tions to the assembly itself, not to the processor. 

Lines 6 and 10 through 14 of the CLRSCR.O listing 
contain pseudo-ops. ORG is fairly standard. It tells the 
assembler the ORiGin of the program, that is, where this 
program will reside in memory. The EQU assigns a value 
to a label. In this case, it tells the assembler that a refer- 
ence to PAGEO actually refers to memory location SFB. 
Neither ORG nor EQU с; ny object code to be gen- 
erated. Again, they are instructions to the assembler. 


Assembled Version of CLRSCR.O 


TY 
2 * RUPERT REPORT #19 

3 — * HI-RES GRAPHICS 

4 CLEAR SCREEN ROUTINE 
re 

6 TTBUFFR (828) 
7 


0330: 4С 44 03 8 JMP START 
lo PAG)  EQU SEB SUSE 2 BYTES 
оз: 620 — 11 BASE DA — $205 SCRMMEM (8192) 
[5 12 BLOKS В 31 58000319256 
0342: 40 13 XTRA ов 64 ma 
0983: 10. FILL ов 0 3SCRN FILA, CHAR 
START 
ГЕ LDA ВАЗЕ ;BASE 158 
85 FB STA РАСВО PAGE ZERO. 
AD 40 63 18458 MSB 
85 FC 
АЕ 61 03 359, BLOCKS 
м 
Ар 43 03 21 
вв 


(PAGED) у 
Loop 
ЕП 
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The DA and DFB pseudo-ops, on the other hand, do 
generate code. The assembler takes the values follow- 
ing each of these and places them in consecutive mem- 
ory locations. DA stands for Define Address, and the val- 
ue following it is stored in the standard "least significant 
byte (LSB) first, most significant byte (MSB) last" se- 
quence. DFB allows the programmer to define one or 
more bytes to be put into memory. Both of these pseudo- 
ops also allow the programmer to assign labels to these 
values, similar to variables and the LET statement in 
BASIC. 

А block of two hundred fifty-six bytes is referred to 
as a page. The eight thousand bytes of bit map memory 
corresponds to thirty-one pages plus 64 additional bytes. 
This routine uses the Y register to cycle from 255 down 
to 0, pointing to individual addresses on a page. 
the X register keeps track of how many pages have been 
cleared. Once the 31 pages have been cleared, the num- 
ber of extra bytes (64) is loaded into the Y re; 

those bytes are cleared. Let's look at the details. 

The DA statement in line 11 puts $00 into address 
BASE and $20 into the next location, which is BASE+1. 
For example, when this program is assembled, the JMP 
statement in line 8 consisting of three bytes is put into 


locations $33C, $33D, and $33E (since the ORG was 
$33C). Consequently BASE corresponds to address $33F 
and ВА$Е+1 refers to address $340. 


А prolessional system thats. 
easy for anyone to use 
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Line 17 (LDA BASE) loads the accumulator with the 
500 it finds at address BASE. Line 18 puts this value 
into page zero location 5ЕВ (РАСЕО). Similarly, the val- 
ue at address BASE+1 is put into location $FC by lines 
19 and 20. The X, Y, and A registers are loaded with 
their initial values of 31, 0, and 0 in lines 21 through 
The first statement of the main loop at line 24 decre- 
ments the Y register, so Y now contains SFF. 

The main loop of this program uses indirect indexed 
addressing. This mode of addressing requires that the 
address to be indexed is stored on page zero. That is the 
purpose of lines 17 through 20. We have chosen page zero 

esses SFB and $ЕС to store the page address of each 
block as it is cleared. According to page 316 of the PRG, 
$ SFB through $FE are available to us. 
ct indexed addressing is among the more com- 
plicated addressing modes. Let's examine the instruction 
in line 25 of the CLRSCRO listing: 


STA (PAGEQ),Y 


This instruction says to 5 ntents of the accum- 
ulator at the address which is indicated by the contents 
of the page zero locations PAGEO and РАСЕО-ҒІ, as in- 
dexed by the Y register. Phew! Let's try this step by step. 

Тһе effective address at which the data in the accum- 
ulator is stored is determined through a roundabout 
quence of events. First recall that PAGEO is a label as- 
sociated with the page zero address $FB, as defined in 
line 10. The processor reads the two bytes stored at lo- 
cations SFB and $FC. Initially these will be 500 and $20 
respectively, as we saw above. These two bytes are in- 
terpreted to be the address $2000. Next, the processor 
takes the value in the Y register (initially SFF) and adds 
it to the $2000. The effective address is consequently 
$20ЕЕ. The 0 which is in the accumulator is stored at 
address S20FF, thereby clearing that memory location. 

According to the table on page 417 of the PRG, the 
entire sequence just described takes a grand total of 6 
microseconds. You can see this by reading across the STA 
row to the "(Ind.) Y" column. There you see the hexa- 
decimal value (S91) for this mode of the STA instruc- 
tion. You also see that the instruction consists of 2 bytes 
(4) and requires 6 machine cycles (М). Each machine 
cycle on the Commodore 64 is roughly 1 microsecond 
(one-millionth of a second). AII the address fetching, cal- 
culating, and storing described in the previous paragraph 
takes less than 1/160,000th of a second! 

Now that location $20FF has been cleared, the pro- 
gram continues at line 26. The statement BNE LOOP 
means "check the zero flag, and if it's not set, jump to 
the statement labeled LOOP” Let's discuss this concept 
of flag setting and checking. 


FLAG WAVING 

The zero flag is one bit inside the processor which 
is updated whenever certain operations are performed 
by the processor. The STA instruction does not cause 
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the zero flag to be updated. This is indicated by the “—" 
under the Z in the Condition Codes column on page 417 
of the PRG. This information is repeated in larger letters 
on page 251 of the PRG. 

1f you look up the DEY instruction on page 242 of 
the PRG, you will see that the N and the Z flags are 
checked. This means that after the processor performs 
a DEY instruction, it looks at the result of the operation 
and sets those two flags accordingly. The N flag is set 
whenever the most significant bit (MSB) of the result 
is set. ("Set" means "equal to опе”) The Z flag is set 
whenever the result of an operation is zero. 

The value of Y was initially 0, and the first DEY in- 
struction decremented it to SFF. Since SFF is not equal 
to zero, the Z flag will not be set. (That is to say, it will 
be reset or cleared.) Consequently, the BNE ("Branch 
if Not Equal to zero") instruction sends the processor 
back to address LOOP. A quasi-BASIC translation of the 
DEY : BNE LOOP instruction pair might be 


У = Y-1 : IF Y<> THEN GOTO LOOP 


Read the description of the BNE instruction on page 238 
of the PRG. Keep in mind that the state of a flag is 4с- 
termined by the last instruction which affected that flag. 

The three instructions in the main loop beginning in 
line 24 of the CLRSCR.O listing will be executed 255 
times, with Y being decremented from 255 to | and ad- 
dresses $20FF through 52001 being cleared. On the 256th 
time that line 24 is executed, Y is decremented to zero, 
thereby setting the Z flag. Address $2000 will be cleared, 
and the conditions for the BNE instruction to branch back 
to LOOP are not met. Execution continues with line 27. 

The page address stored in location PAGEO+1 is in- 
cremented from $20 to $21. Now addresses $21FF 
through $2100 will be cleared. The X register is decre- 
mented in line 28. It is keeping count of the number of 
pages which still must be cleared. Since X is decremented 
from 31, the result is 30 and therefore the N flag is not 
set. The BMI (“Branch on а MInus result") statement 
looks at the N flag. Results which have an MSB of one 
are considered “minus.” Thus $80 through SFF (128 
through 255) are negatives. $00 through S7F (0 through 
127) are positives or "plus" results. 

Since the N flag is not set, execution continues at line 
30. The Z flag is not set (since X was not decremented 
to 0), and line 30 branches back up to the main loop 
to clear the next page of memory. A translation of the 
instructions DEX : BMI DONE : BNE LOOP might be 


X = X-1 : IF X>127 THEN GOTO DONE 
IF X<>0 THEN GOTO LOOP 


Keep in mind that X is an eight-bit quantity and decre- 
menting it from 0 gives a result of 255. 

On the 3ist time the DEX in line 28 is executed, the 
Z flag will be set, since X becomes zero. At this point, 
the 31 (SIF) whole pages from $2000 to $3EFF have been 
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cleared. The BMI instruction in line 29 is still bypassed, 
since X is not negative yet. The BNE in line 30 is also 
bypassed, since X now equals zero. The Y register is 
loaded with the number of additional bytes ($40) to be 
cleared. The page address has already been incremented 
to $3200 in line 27. 

Now as the main loop is repeated, addresses $3F3F 
through $3F00 are filled with zeroes. Line 28 decrements. 
X to $FF, and the BMI instruction sends the program 
to its conclusion. The RTS instruction returns control to 
BASIC. 


HOW FAST? 

The instructions in the main loop must be executed 
8000 times. Is the increase in speed really worth all that 
we've just been through? The results of some simple tim- 
ing tests are very convincing. Clearing 8000 bytes of 
RAM in BASIC using a FOR-NEXT loop require 1766 
jiffies (sixtieths of a second). This machine language rou- 
tine clocks in at a grand total of 13 jiffies, and that in- 
cludes the time required for BASIC to read the object 
code file into memory from the disk. The routine itself 
takes only 6 jiffies once it is in memory. 

Hard to believe, but true. The machine language pro- 
gram is over 135 times faster than BASIC and nearly 300 
times faster if it is already in memory. That's what makes 
nbly language worth it all —aside from being an ex- 
citing intellectual challenge! 


CREATING THE PLOT 

We will not go through the second assembly language 
program in as much detail as the first. The purpose of 
the second assembly language program is to process the 
specified values of X and Y and to light the appropriate 
pixel on the screen. Refer to the PLOT.SC.S listing for 
the following discussion. 

The BASIC program in Listing 1 POKEs values into 
memory locations XVAL, XVAL+1, and YVAL for X 
and Y. X is a two byte quantity between 0 and 319. Y 
is a one byte quantity from 0 to 199. The first task of 
PLOT.SC.S is to make sure that the X and Y values are 
in the proper range. If either is out of range. it is changed 
to the maximum value. 

Beginning at line 43, the program evaluates each term 
of the expression 


Z = 320*INT(Y/8) + (Y AND 7) + 8*INT(X 
/8) + 8192 


which we saw last month gives the address of the memory 
cell corresponding to the point (X,Y). Taken a piece at 
a time, the task is not as formidable as it might seem. 

The most difficult problem is to multiply INT(Y/8) 
by 320. The procedure is to first calculate 8*INT(Y/8) 
and to multiply that result by 40. Finding 8*INT(Y/8) 
is simply a matter of dropping off (truncating) the three 
least significant bits of Y. This is done with the state- 
ment in line 52, AND #$FB. The accumulator contains 
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the one byte quantity Y. Тһе “#” implies the immediate alent to the value 8*INT(Y/8). 
addressing mode. The processor takes the quantity SF8 The result is then multiplied by forty. Multiplication 
and performs the logical AND function between it and Бу powers of two is relatively easy in machine language. 
the accumulator's value, leaving the result of the calcu- И amounts to little more than shifting a binary quantity 
lation in the accumulator. one place to the left. Unfortunately, forty is not an even 
We are using a masking operation here. The three least power of two. It is equal to the sum of two separate pow- 
significant bits of $F8 are zeroes and the other five bits ers of two, namely eight and thirty-two. We will use the 
are ones. ANDing any quantity with zero gives zero while fact that 40*Z equals (8*Z + 32*Z), where Z presently 
ANDing any quantity with one leaves the quantity un- equals 8*INT(Y/8). The result will be a two byte quan- 
changed. Consequently, the five most significant bits of tity. The MSB will be in location Z+1 and the LSB will 
Y are unchanged and the three least significant bits be- Бе in location Z. 
come zero by the operation (Y AND $Е8). This is equiv- The ROL (rotate left) instruction in line 61 is used to 


Assembled Version of PLOT.SC.O 


* RUPERT REPORT #19 
* ASSEMBLER LISTING 3 


Zal 1602 
HIGH RESOLUTION PLOTTER 


Zal 
ORG son ISTART AT 49152 

. p 

JMP START 22 

p 

жи № їз А 319 23 

p п ой DB 0 743 


070 12 BASE DA $206 МАР MEMORY. 


TES ON PAGE 9 


S IN Ze2(LSB) AND. 


= (ТАЮ 7) +2 


И ND 
св: CHECK. XVAL MSB 3A0D TO 2 
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ВЕД ОКХ 308 IF 0 (X 


256) 


FADD CARRY 


Z = B*INT(X/8) + Z 
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29 ох {кон XVAL<320 
30 sererreosssrossesesooesesas 
34 4 АКЕ SURE Y c 29 
LDA YVAL 


со 


Үау 


USE Y МАХ % о 


№ үм) 


7 o 
a ВЕ FÉ 

AA ^ Zadl(B*INT(Y/B)) + (Y AND 7 FE 

55 * + BINT(X/B) + BASE —MÓ 
пы * FIND BIT (ADT) ж 

18 tikeeeekae ennt 03 о» К 15158 

49 * GET Z = S#INT(Y/8) a7 n (А. AND 7) 
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LDA 
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НН 
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Сөзі: AS Fb — % я 1X TIMES INTO A 


chap: Loop A 
є ШР 
Ба Z4 
D ГА ХО OFFSET 
FD (242),Y — GET SCREEN BYTE 
кс psi ;SET PROPER BIT 
FD (2«2),Y _ ;ÜPDATE SCREEN 

END 
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rotate the LSB of 2. which is in the accumulator. Тһе 
most significant bit which falls off the left side of the 
accumulator goes into the carry flag inside the proces- 
sor. The next ROL is performed directly on memory ad- 
dress 7--1. The carry bit is rotated into the least signif- 
icant bit position of Z--1, and all the zeroes іп 2+1 get 
shifted one place to the left. Notice that the carry bit was 
cleared in line 60 before the process was begun. 
After three repetitions, Z and Z+1 store a two byte 
quantity which is eight times its original value. We will 
use this value later so it is copied into locations 2+2 
and Z+3 for safe keeping. Two more repetitions gives 
thirty-two times the original value of Z and Z+1. Lines 
75 and 80 add this quantity to the intermediate values 
at Z+2 and Z+3 and put the results into Z+2 and Z+3, 
thus giving forty times the original value of 8*INT(Y/8). 
At line 113 of the Р1.ОТ$С.$ listing, the address cor- 
responding to the pixel at location (X,Y) is stored in Z+2 
and Z+3 (LSB, MSB). Lines 115-122 calculate the proper 
bit value (0 through 7) corresponding to that pixel. 
The final segment of the program at line 124 shifts a 
single one into the proper bit position of the accumula- 
tor. This result is ORed with the value in the selected 
bit map memory location, thereby turning on the pixel 
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at position (X,Y). 

Calling this machine language subroutine to calculate 
and plot each point is still roughly twice as fast as using 
the BASIC subroutine in lines 400 through 430 of Listing 
1 to do the same thing. The program in Listing 1 checks 
the keyboard buffer index after each point is plotted. The 
INKEYS routine does not work in this bit map graphics 
mode, so a more fundamental approach was required to 
interrupt the program. Remember that if the program 
stops in bit map graphics mode, you can blindly enter 
GOTO 300 to return the screen to text mode. Once the 
patterns have been drawn, the program waits for any key 
to be pressed before returning to normal mode. 

The best ways to learn assembly language are to read 
books and magazine articles about it, study examples of 
programs written by others, and (most important) get an 
editor/assembler and use it. Two books that I have found 
useful are 6502 Software Gourmet Guide & Cookbook 
by Robert Findley (Scelbi) and Programming the 6502 
by Rodnay Zaks (Sybex). 

We will wrap things up with three challenges you might 
enjoy. First, modify the CLRSCR.O listing so that it fills 
the color memory (1024 through 2023) with a specified 
color code in addition to clearing the bit map memory. 
Second, write a machine language routine to draw a line 
between endpoints specified by the user. (Perhaps start 
with horizontal and vertical lines only.) 

Third, see how quickly you can analyze this bug that 
took me a couple of hours to eliminate. Swap the DEY 
and STA instructions in lines 24 and 25 of CLRSCR.O. 
LOOP is nov the label for the STA instruction. The pro- 
gram still works almost perfectly. In fact, it works fine 
for 7999 of the 8000 bytes. Can you figure out where 
it fails? 


Аза follow-up to the March Rupert Report on the 20$ 
Wedge, James Borden (Carlisle, PA) sent the following 
additions and a correction. To change the disk drive num- 
ber, type @# < КЕТОКМ > where d is the new drive 
number (8 or 9). You can pause a directory listing by 
tapping the space bar. Pressing it again continues the 
scrolling or pressing <RUN/STOP > stops it. Mr. Bor- 
den suggested that after pressing <RUN/STOP>, you 
may move the cursor up the left column to the line con- 
taining the desired filename and type “/", “%” or «up 
arrow> then <RETURN>. That way you may load 
and run a program without having to type its name. (You 
don't have to erase the numbers in the file size column 
either.) Mr. Borden correctly pointed out that entering 
LOAD“W"8:RUN will лог automatically load and run 
the program “№”. Instead of typing RUN after the colon, 
you must hold the shift key and press the 
<RUN/STOP> key. Thanks for the feedback. 

Until next month, keep those programs speeding along. 
Inject а bit of machine language into them. O 

SEE PROGRAM LISTINGS ON PAGE 89 
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BRAINFRAME 


An Exercise in Logic for the C-64 
By Norm Vogel 


X| ubmitted for your approval is a new version of 
the venerable logic puzzle, Mastermind 
| СММ". 1 wrote the original version of this 


—— program when MM first came out, but since the 
PES of the C-64, it was modified extensively to take 
advantage of the 645 color and sound capabilities. The 
result is Brainframe—a program which I feel is superior 
to other versions of this game currently available, and 
not just another number guessing game. 

After the title screen clears, the instructions are print- 
ed. The program then prompts for the number of digits 
to solve (3-5; relatively easy to very hard). When the 
number has been selected, the game begins 

You input your guess (the RETURN key is not needed 
е is made, hit to redo), then the ma- 
chine “thinks” about your entry via changing colors and 
sounds generated by the input. It then prints its evaluation. 

During the game, various prompts and sound effects 
are used; for example, if you haven't gotten the solution 


in 10 tries (оп a 3- 
the messag 
a “raspberry” 

If the puzzle is solved, “Charg 
the answer and number of tries, plus an evaluation of 
the game, e. ‘Not bad, but you need more practice!" 
Also shown is a “rating” system whereby you can see, 
for example, how many games you won in five tries, This 
display can handle double digits without getting physi- 
cally larger. It also displays the total number of games 
played and the number of “give-ups.” (If the puzzle is 
solved in a remarkably short time, the "give-up" count 
is reduced to zero for the rest of the game.) The game 
then asks for a replay. (Note: if the "number of digits" 
is changed, the "rating system" resets it: 

SEE PROGRAM LISTING ON PAGE 109 


-number game), the program displays 
“You haven't got it YET?!” and gives you 


is played, along with 


PURI 


For the C-64 
By Simon Edgeworth 


ГИЧ | his little program simulates the PRINTAT 

| command of some versions of BASIC. It en- 
ables you to move the cursor anywhere on the 
screen with a single command. 

The main program (lines 10-18) puts a short machine 
language program into memory, starting at location 679, 
and sets the variable AT equal to 679. 

The command SYS AT, followed by two numbers, will 
now move the cursor to any desired location on the 
screen. For example: SYS АТ,8,12: PRINT"MARS" will 
print "MARS" starting at line 8, column 12. SYSAT, L.C: 
PRINT"VENUS" will print "VENUS" starting at line L. 
column C. The demonstration program (lines 20-48) gives 
more examples of how the command can be used. 

To use this utility in your own programs, you only need 
lines 10-18. Put them at the beginning of your program. 
and you will be able to use ti the new command for all 
of your screen formatting 

SEE PROGRAM LISTING ON РАСЕ Ш 


commodore owners 


DON'T 


THRON YOUR PRINTER OUT 


5 W Үои can now custom design 
{| your own printer fonts or choose 
from one of the different varieties. 
already on the disk. Not only that 
but you can read in any standard 
commodore ASC Il sequential 
file and change the typeface. 
All THIS PLUS: 

1. Mix up to 15 fonts in 
one document. 

2. Design custom fonts 
including symbols, foreign 
language, math 
symbols ect. 

Includes font to give you 
descenders on your 1525/ 
801 printer 

Convert most popular word 
processing files to custom 
fonts. For special effects. 
Also includes the signwriter 
64 program to print signs 


and banners. 
T 
— 


DISTRIBUTING INC 


1342 В Route 23 Ви 


Reader Service No. 104 


AHOY! 45 


MERLIN 64 
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“Mus $3.00 Shipping. CA Res. add 6% Sales Tax 


WE RENT 


commocdore 


GAMES AND SOFT WARE 


*DATABASES & UTILITIES 
*FOREIGN LANGUAGES 
*ADVENTURE GAMES 


*ARCADE GAMES 


Call toll-free outside Texas: 1—800—433-2938 


WEDGWOOD RENTAL 
5316 Woodway Drive 
Fort Worth, Texas 76133 
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FLOTSAM 


I have become a recent reader of Ahoy! I must say that 
you do an outstanding job as editor in bringing together 
a variety of informative and practical articles and fea- 
tures. Editorial matter is presented in an interesting man- 
ner with clarity and appeal to the eye. 

You are to be commended for your many contributions 
in making Ahoy! a most valuable publication for the Com- 
modore user. Samuel Rabinoff, Principal 

PS. 207, Queens, NY 


Ordinarily, weil be too embarrassed to print such ап 
overwhelmingly positive letter. But what editor could re- 
sist a letter from his elementary school principal? 


I have been an avid reader of your magazine since your 
premier issue. I enjoy it very much and get a lot of use- 
ful information from it. 

One objection I have that I feel should be brought to 
your attention are the ads from CVC Online that have 
appris- си die last few issues. 

I am not a prude or moralist, but I do not think that 
а magazine of this quality is enhanced with advertise- 
ment of this nature. I am sure that the revenue obtained 
by accepting advertisement of this sort will be more than 
lost when circulation decreases due to those that do not 
care to have advertisement of that type put in the hands 
of their children. 

Тат taking the time to write, hopefully to encourage 


you to maintain the high quality of your magazine in- 
cluding the advertising that most of your subscribers read. 
Thank you for your consideration of my observation 
and comments. I hope to remain a reader and advocate 
John W. Carino 
Columbia, SC 


of your magazine. 


"Sure its user-friendly! 
Who do you think bought this round?" 
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THE 


WIZARD OF IM 


For the C-64 
By Bob Spirko 


па remote corner of the galaxy, the planet Obid 
is suddenly assailed by a meteor storm. As this 
ancient planet hurtles through a swarm of rocks, 
its greatest city, called Im, is threatened with an- 
nihilation. A city council is hastily assembled and a de- 
cision unanimously struck: send for the Wizard of Im! 

You are the Wizard of Im, Brandishing a magic wand 
that hurls huge fireballs, you set forth to destroy the dead- 
ly cascade of rock and spare the city. Despite your pow- 
ers, however, it remains to be seen if you are quick enough 
to blast the multitude of menacing meteors before they 
fall to earth. 


The Wizard of Im is a colorful action game that re- а 


quires lightning reflexes. At first, you'll find it easy to` 
demolish the meteors as they fall from the sky, but in 
time the speed and number of rocks increases so that 
you must work frantically to destroy them while at the 
same time keeping yourself from being struck down. 

Since The Wizard of Im is written entirely in machine 
language, you'll need Flankspeed to type it т. Run Flank- 
speed (see page 86) and enter the following hexadecimal 
numbers: 


starting address: С000 
ending address: C71F 


Once entered, save the program on disk or tape. Now 
reset your computer and type LOAD“WIZARD OF 
ІМ” for disk or LOAD*WIZARD OF IM"1,1 for tape. 
To start, enter SYS 49152. 

The screen will display a brief introduction and then 
the action begins. Use your joystick to move the wizard 
left or right, and press the fire button to release a fire- 
ball. At the bottom of the screen, your score, lives, lev- 
el, and best score are displayed. Each meteor that you 
vaporize will net you a few points or few dozen points, 
depending on the level that you are on. To your credit, 
the occasional meteor will disintegrate of its own accord 
before striking the ground. However, meteors that elude 
your fireballs and reach the earth will cost you points 
(except on the first level). 

As you progress through the levels, the meteors appear 
more often and move faster. In time, the screen becomes 
so congested with hurtling rock that moving the wizard 
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safely becomes difficult. You'll notice, too, that some lev- 
els are more formidable than others. This is because the 
value of each rock is increased with each level and then 
reset. This means that some levels will take longer to 
get through than others, but once through these the next 
few levels will be quicker. 

Like all good wizards, you have three lives. Should 
you be struck by a meteor you will lose one life. Thrice 
killed, the action stops and you can start over by press- 
ing any ke self you can reset the game 
by pressing у ack to BASIC with f8. 
To.pause at any time press the SHIFT-LOCK key. O 

SEE PROGRAM LISTING ON PAGE 98 


BridgePro is the first program I've seen that provides a challenge 

for the average-to-excellent bridge player... The documentation is 

excellent and allows a new bridge player to learn the basics. 
—Harvey Bernstein, Antic Magazine, Feb, 1985 


After having tried three other bridge programs, | find that BridgePro 

is indeed a pro game... t is designed for both the beginner and the 

advanced player. ..| didn't find anything that could be improved ирот 
—Helen Garret, Apple-Dayton Journal, March 1985 


I you like to play bridge and don't have three other players ever: 
eager to play, this software is a must. For bridge freaks it's good 
‘enough to justify buying a computer 
Whether you are a "master" or a 
beginner, this is great software. 
— Christian Basler, NY 
Commodore Users Group 
Review, Sept. 1984 


2% 
ү 


$35 CA Residents add 52.28 Sales Tax 
‘Add $2 for COD/UPS 2nd Day Air 
DISK — VISA/MasterCard Welcomed 


BridgePro is designed to let уси learn, 
improve, or just enjoy the card дате о! 
bridge. The program provides com- 
plete bidding. play and scoring for 1 ог 
2 players. Features include random 
hands, bidding help, demonstration 
mode, hand replay/quit, best hand, 
auto finish, duplicate mode, and fast 
machine language speed 


Join us 
for Bridge 


48 Hour Free Shipping 
(415) 930-8075 
Computer Management Corp. 

2424 Exbourne 
Walnut Creek, CA 94596 
Dealer Inquiries Invited 


Commodore 64 • Atari 
Apple Il • IBM PC/PC jr 


Reader Service No. 108 
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E asimpller $59.95 


The first D-Compiler to give you back your source code 
after your program has been compiled with “Blitz. 


"Bit is à trademark of Styles Electric Works 


_ 1541 бирег НОМ 539.95 


* Fast Save Load Verify also Save with Replace is 


* Fast Scratch and Validate кие 


: $ * Two times faster, Eight times faster 
* 10 Second Format with Verify when used with Turbo 64 which is included 
% No more Drive Head rattling 


during Format or Error Reading * 1541 Super ROM is 100% Compatible % Easily installed in Minutes 


APALLO copies it att 


APALLO Does it All. This program is the latest generation of 
copy programs. It will do everything the $39.00 and 549.00 pro- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks, 
We feel this is the best program of its kind available... $29.95 


* Copy Protected Disk * Copy Unprotected Disk 
MSD Sure Copy а. * Scratch a File 


Format a Disk ч 5 
At last a complete utility package for the MSD Dual Drive. This Change Disk Name * Rename a File $39 


is the first MSD utility program that does it all. The main = Quit * View Directory 
menu options include: Sure Copy will put all errors automatically on disk: 20, 21, 23, 27 and 29's. 
the machine F ader 
4 Translates any machine language program into easy: langage manipular, Super Loader is a Kartridge that plugs into 
to-tead English descnplions with complete explana- your expansion port, that allows the 
tions of each command! The perfect companion computor. on power up start the disk drive 
* Makes complete notations of al important memory program to D-CODER! and load the first preselected program on 


locations accessed by the program (SID. VIC, MOS. 
KERNAL, etc ) Allows you to easily make changes in ma- 

* Gives you three ways of accessing programs. chine language programs... right on the disk! 
1) Will read and list programs trom DISK 


the disk 


* Change colors 


2) Will read and list programs trom MEMORY! „нейзш aloa Code Бала * Load wedge ue 
3) Direct user input (rom magazines ec) and then rewritten directly to the disk? * works with more айе. S 
* Can be used to locate and examine any machine ааа айу өседі жілік io Hae 
language program s protection routines! assembly language display o! machine s 7 
* Can be used to easily break aparı machine language language programs! * Reset swich included. | WES T 
programs for study and examination! * Notation of ASCII text equibalents for easy erigi. Ver 
* Printer option for complete hard copy listings! spotting of embedded text strings! 
You no longer. * Handy reference display of all assembly 
Р тебі әле i language commands ала their ML 
$ 95 EGGHEAD to | 00 numerical equivelents! 52995 
19 read Machina: Че * Byte splitter for easy splitting of decimal Only 
Language. addresses into low byte-high byte та! 


some of them are routines for incorporated into all of your programs. 


Te) protection, smooth scrooling, modem It is also fully documented. $ 
50 routines, and sound and color 19.95 


Ok This Disk has over 100 routines, routines. They can easily be 
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Slik Loa 
ЗИК Load is a Kartridge ad C-64. 329.95 


Slik Load is the most reliable, effective and thought out Kartridge of it's kind. 


The options include: 
* Б timos faster load 


* Status key will give you information on 
device number, bytes free and status of the 
drive. 


+ Silk Load is also fully compatible with the 
1541 Super Rom 


Reed/Write Төш. 1541 performance lest |. 
Repair a Track-Repair а track with 
Checkwum errors Reads code under- 
етеп and restores track Ei 
ak in jum 10 


Sync Resder-Check for Sync bis on any 
ack out to 41 

Change Drive Mo-Changes orive 
‘number (7-30) 

Disk Logger-Fings starting track sector 
start ang end agarestes 

Disk Match-Compare any two aisrenes 
Byte for byte. 

Mew Wedge-Ente!!o іле DOS wedge. 
ID Check Check ID's оп any trace 
Unactalch- Restore a scratched tie 


DMS-Erron 20.21.22. 23. 27 A29 
Format Singie Tracks 
Road Disk Errors 
% Track Reader-tead and select 4 track 
9 Track Formatter-Format а disk with Э. 
tracks. This з where the next protection 
schemes are coming hom 
Drive Mon-Disk Drive assembler/dn- 
assembler For your 1541 
Тһе Оос-Ова Doctor that reads code 
under errors. 


is the only utility 
of its kind. It even hi 


Sync Maker-Piace à sync mark on any 
Mach out fa 41 Also uted for protection 


View BAM Visual anglay ofthe tree and 
used sectors оп а бен, 


a 3 тіп. copy on it. 


WAR GAMES 
AUTODIALER ег 


2-Review Numbers will review numbers that were answered by а computer 
3-Save Numbers will save numbers where a computer answered 
4-Hardcopy of Numbers wii print out ist of numbers where a computer answered 
S-LOAD Numbers will Joa in numbers to continue where i left off 
6-Continue wil pick up dialing where i! was interrupted 


= 


OFTWARE 
t. 
ANDBOOH 


THIRD EDITION! NOW AVAILABLE! 

If you're tired of being harassed by protected software and too many copy 
programs. then this is the book for you! This 224 page manual covers the 
ambit from legalities to protection methods to step-by-step back up pro- 
Cedures Now you can learn both how fo protect and unprotect software! 
The techniques covered incluce copying cartridges to tape or disk. tape pro. 
tection, and disk protection. Disk protection covers error по 's 20. 21. 22. 23. 
27 and 29 plus single track formatting, header modification, header s«app- 
ing. hall rack reading and writing, reading and wnting modified be densities, 
formaning illegal tracks/sectors, sync writing and more! The Third edition ex- 
plains, telis how to detect and now to write them with included sofware. 
Eleven useful utities and many protection listings! Our disk analysis programs. 
‘revoal the protection methods used on your originals. A diskette with ай sott- 
ware in available for a minimum extra charge. This may not be the only book 
your should have for the С.а, but it is certainly the one book you should 
not be without! 


3rd 
dition 


C64 Book оту $1995 US 
Book & Disk о! all programs $2995 US 
Vig 20 book. Сап & Tapes only 3935 US 


THIS MANUAL DOES NOT CONDONE PIRACY 


- 


KARTRIDGE KRACKER 


NOW you can own this unique and powerful too! 
which will allow you to dump the contents of 8K 
апа 16K cartridges onto disk! But what's really 
great is that you can also RUN the cartridges pro- 
grams without plugging in the cartridge! the 
KRACKER gets YOU INSIDE the cartridge! Put 
ай your favorites on disk and get rid of the clut- 
ter. This package provides your with the software 
ала hardware needed to get started. Program on 
disk included. (Some cartndges require use of ex- 
ternal RAM not included) 


TOP SECRET STUFF ІІ 


All C128 Compatible 


Protect Scheme For Your Disks 
Write Protect Disk 
Unwrite Protect Disk 
Mini 0.0.5. Wedge 
Fast Diskmatcher 


Split Screens (Horizontally) 
‘Smooth Scrolling 

Save Ram From Under Roms 
No Drive Rattle On Errors 
Triple Drive Head Speed 
Autoboot Maker 

Koala Screen DUmp 

Display GCR 3 Minute Copy 
Fast Disk Eraser DMS. 


If you һауе TSS#1, You'll 
Like This One! АП оп one disk 


Bulletin Board 


Set up and operate your own bulletin board with one 
ог two дай drives. This one has ail the features and 

you can customize и easily yourtell 

LAUN MEGASOFT-BBS — SREAD SYSOP MESSAGES 
ICREATE MEGA FILES — 9— WRITE OPENING MESSAGE 
3.00 ТО SYSOP S CORNER 10.READ LOG 

ANEW SYSOPS CORNER 17 CYCLELOG - 

5 READ MESSAGES 12. ЛЕО DOWNLOAD FILE. 
SCRATCH MESSAGE Y3-SCRATCH DOWNLOAD FILE 
7 CYCLE MESSAGES. 14-А00 TO OTHER SYSTEMS. 


$59.95 BB $ CREATE OTHER SYSTEMS 
+ Leveled Access + Expert Mode 

+ Private Message Base + Open Chalk Board for 
+ Up to 300 Passwords Highest Level Access 


51955 


Enciose Casniers Слеск Money Order of Persone 
Check. Alow 14 азуу for delivery 210 7 days lor 
phone orders Canada oraers must зе in US 
Dollars VISA — MASTERCARD - COD 


Programs tor C64 ELITS 


"SHIPPING: $2.00. 
| 


‘Sohwere Submissions invited 


- 


MegaSoft timites 


P.O. Box 1080, Battle Ground, Washington 98604 
Phone (206) 687-5116 * BBS 687-5205 Aner Hours Computer o Computer 


Reader Service No. 147 
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PRINT SHOP 


he Print Shop from Вго- it line on the back (Hallmark, move images. Only one graphic may be 
derbund isa multipurpose over). used for a given part of the card. The 
graphics cannot be mixed on the 


graphic utility which turns 2. Sign printer—sure to be wel- 
comed by many a small business, as same page of the card. The image 
it saves hours with a stencil. These тау be used only once, or repeated 
single sheet displays have become all ир to 35 times to form a solid back- 


the rage at the local computer fairs 


ЕЗ” | and flea markets. 

3. Letterhead ког alli 
SUBSCRIBE you to create fully illustrated custom- 
10 ized stationery. 

4. Banner printer. 


5. Kaleidoscope generator, com- 
plete with bit map screen dump. 


о 
$ 
© 
Q 
© 
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GREETING CARDS 5 
ВЕ Ф 
5 
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© 
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the Commodore 64 with 
dot matrix printer into an all-purpose 
greeting card, banner, and poster 


GALO 

The greeting card generator will 
most likely be the first part of this 
package you will try out. As with all 


и the routines, a set of menus takes you 


ВАЛ through the entire process. 
First you may choose one of nine 
Я possible borders ог попе at all. Тһе y» $ 
—M à borders range from simple lines НИ 
through flowers and lattice work. 

generator. It is one of the best thought Next you may choose a graphic im- ground. Different graphics may be 
Out, easiest to use packages Гуе come аре to dress up the card. Fifty pic- selected for the front and the inside 
across for the Commodore 64. It is tures and ten patterns аге provided оп of the card. The large graphic may 
So easy to use, in fact, that I was able the program disk. The graphics may Ве printed only once in the center of 
to generate my first greeting cards Бе selected by number off the handy the card. 
without once referring to the manual. reference card included with the Опе of eight font styles are avail- 
The manual, by the way, is a well- package. If you cannot bear to tear able for your message. These fonts 

written, 28 page, 8% x И” softcover your eyes from the screen, the pro- range from an elaborate Alexia to a 

book. It does a thorough job of de- — gram will prompt you with the names simple Block style. Individual text 

scribing The Print Shops numerous оѓ all the prepackaged graphics. If lines can be printed ош in one of two 

features. To help get you started, the попе of the provided graphics suit sizes using solid, outline, or 3-D let- 
numerous illustrations аге a source your taste, a rudimentary graphics ed- tering with any of the fonts. Fonts 
of inspiration. itor lets you design your own (more cannot be mixed on the same page 
on this later). of the card, although different fonts 
WHAT IT DOES If you do selecta graphic, you аге тау be selected for the inside and the 

The Print Shop is a collection of asked to choose from a small, medi- front of the card. The more complex 
integrated programs that will allow ит, or large image. If you select one _ styles take up more space, which lim- 
your Commodore 64 to perform ofthe smaller sizes you will һауе ће its the size of the message. The 
many of the services heretofore choice of both layout and number of amount of text available ranges from 
farmed out to your local printery. The Print Shop cannot actually produce full color graphics like those 
These consist of: shown here—Art Director JoAnn Case just could not resist coloring them 

1. Greeting card generator—turns jn А are reductions of dumps from various Print Shop utilities, includ- 
Ae eee ing the greeting card generator, the sign printer, and (at bottom of page 
the front and indie as Well as a сд: 51) the banner printer—the original of which is over five feet long. 
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By Morton Kevelson 


a maximum of 14 lines by 26 charac- 
ters in the single sized Stencil font to 
a minimum of 4 lines by 8 charac- 
ters in the double sized Alexia font. 
Individual lines may be centered or 
left or right justified. 
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The entire creation process 15 re- 
peated for the inside of the card. The 
final step is an optional fifty six char- 
acter credit line for the back of the 
card. 

Actually, there is no need to fol- 
low the prompts in the order pre- 
sented. The program allows for easy 
movement back and forth through the 
menus. The only thing to watch out 
for is the font selection process. If 
you scroll through any of the larger 
fonts or change the size of the text 
lines, any part of the message which 
no longer fits will be lost even if you 
reselect a smaller font. 


PRINTOUT 
The heart of the program is a very 


Sophisticated print routine which is 

customized for your specific printer. 
Two versions of the program are pro- 
vided. The back of the disk contains 
the Commodore 1525/MPS-801 ver- 
sion. The front of the disk supports 
a variety of popular printers includ- 
ing those made by Epson, Star Mi- 
cronics, Panasonic, C-Itoh, Legend, 
NEC, Mannesman Tally, Blue Chip, 
and Okidata. A customizing routine 
modifies the original program disk, 
after which a write protect tab should 
be installed. 

The entire 8% x Ш” surface is used 
for the greeting card. The paper may 
be precisely positioned by a test rou- 
tine which advances the paper in 
1/72" increments till a dotted line is 
printed precisely on the perforation. 
When printing is complete, you sim- 
ply fold the paper twice to complete 
the card. 

The printout process is rather long, 
about eight minutes with a Gemini 
10Х. A colorful animated display lets 
you know that all is well with the. 
printer, program, and computer. The 
display message alternates between 
"thinking" and "printing" while the 
operation is taking place. Consider- 
able disk access occurs during the 
printing process, as The Print Shop 
recalls data on the type fonts and 
graphic images. 


SIGNS 

The sign utility lets you create a 
full page sign for just about any an- 
nouncement. The creation process is 
very similar to the above. Text space 
ranges from a maximum of 14 lines 
by 26 characters to a minimum of 4 
lines by 8 characters, depending on 
font and size. 


LETTERHEADS 

The letterhead utility lets you de- 
sign customized stationery. Both a 
header and a footer can be created. 
Each consists of a 32 character line. 
in your choice of font with three addi- 
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tional 63 character text lines. A hor- 
izontal separator line may be used to 
segregate the header or footer from 
the rest of the page. Graphics may be 
incorporated in the letterhead design. 


BANNER 

Need a long sign with eight inch 
high letters? The Print Shop banner 
utility fills the bill. There is no limit 
to the length of the message, as re- 
peated applications are possible. This 
also allows for the mixing of fonts, 
as well as a variety of graphics оп a 
single banner. Just keep a plentiful 
supply of printer ribbons and time if 
you plan to indulge. Roll paper is a 
definite plus for this application. 
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GRAPHIC EDITOR As with all the other Print Shop 
For those finicky souls who can- utilities, a message using any of the 
a fing 24 акку апо ne fonts шау be superimposed оп he, bit 
with the package, the graphic edi- ч map. Message capacity varies from 
tor lets you modify or create your WHAT S 8 lines by 22 characters to 2 lines by 
own. This rudimentary utility is a far NEWS 6 characters, depending on font and 
ey Гоп the d packers Сатон t е; Sn Пе ЕНДІ may be шоп 
looked at in the October and No- ied without affecting the original un- 
vember issues of Ahoy!, but it does derlying image for as long as you do. 
not save or print the display. Thus, 


the job. The 88 by 53 dot sketch pad 
(44 by 45 dots on the 1525/MPS-801 it would be a good idea to save the 


+++++ 


MPS-801 version). Thus up to 144 
graphics, the capacity of the 1541 disk 
directory, may be stored on a disk. 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
$ 
PRINT SHOP ТО BIT МАР + 
CONVERTOR 54 
The graphic editor has its own + 
unique file format for storing the bit $ 
mapped image. The Print Shop to Bit + 
Map Convertor program on page 88 54 
of this issue will transfer a рай оба + 
Commodore 64 standard bit map file + 
into the graphic editor format and E 
vice versa. The program is set up to 
work with DOODLE! files and the 
non-Commodore Print Shop files. 
version) occupies about half the When going from DOODLE! to Print image to disk before experimenting 
screen. Input is accepted from a Shop, a small portion is extracted with text. The resulting printout fills 
touch tablet (best), a joystick or track- from the upper left hand corner of the about a half of a page. 
ball (good), or the keyboard (fair). DOODLE! image. In the opposite di- 
The main problem with keyboard en- rection, the same size image is pro- DOODLE! TO SCREEN 
try is the lack of automatic repeat duced with the addition of a one pix- MAGIC 
with the cursor keys. el border. This will allow the ex- According to the Print Shop manu- 
The editor allows for the placement tended features of the DOODLE! al, the Screen Magic images are not 
and removal of dots or clearing of the package to be used for the creation compatible with other Commodore 
drawing screen. No other features, of Print Shop graphics. graphic packages. Not any longer. 
such as geometrics, fills, or block Michael Beutjer, author of Koala 
moves, are supported. The cursor co- SCREEN MAGIC Printer, has provided a program to 
ordinates are continuously displayed This is a unique high resolution bit convert between Screen Magic and 
at the bottom of the screen. This will mapped four quadrant kaleidoscope DOODLE! format. This will allow 
allow you to plot out the entire im- generator. Two basic patterns are — you to color in or print out a Screen 
age on graph paper beforehand. Trac- generated. The first pattern has ele- Magic image with the DOODLE! 
ing a picture on a suitably scaled grid уеп possible variations. Once started, package. The DOODLE! screen 
might be a good way to start. Graph- the images vary continuously in an dump yields an image which is ei- 
ics may be saved to disk for recall by almost hypnotic fashion. When you ther half the size or twice as large as 
the other parts of the package. А spot a particularly pleasing pattern, the Screen Magic dump. See the 
graphic file only occupies three disk strike the RETURN key to freeze the Screen Magic to DOODLE! Conver- 
blocks (two disk blocks for the 1525/ display. tor on page 88 of this issue. 
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THINGS І WOULD LIKE 
TO SEE 


Several needed enhancements to 
the Print Shop package come to 
mind. The ability to save a greeting 
card design would be appreciated. 
Although the creation process is only 
a few minutes, being able to recall а 
saved card would avoid spelling er- 
rors and typos. 

How about a mail merge utili! 
This would permit the lengthy print- 
ing process to be left as the last step. 
after all your cards have been crea- 
ted. Convenient customization for 
that truly personal touch could be 
readily implemented. 

А font editor would make а nice | 
enhancement. If nothing else, thi: 
would allow the Print Shop to "learn' 
other languages. 

Some musical accompaniment 
would turn the Kaleidoscope utility 
into a really effective display. Just im- | 
agine what the effect of a wall full | 
of displays with the right sound would ES 
be like. р 

Last, but not least, a sophisticated 
graphic editor would be most аррге- 
ciated. 


CONCLUSIONS 

The Print Shop is destined to be- 
come one of the most popular pack- 
ages for the Commodore 64. Its ease 
of use and wide ranging utility will 
make it a must-have for most users. 
The suggested enhancements I have | 
mentioned above in no way detract 
from the quality of the package as it | 
is presently supplied. I predict that 
the popularity of this package will 
lead to many of these features, either 
directly from Broderbund or from | 
outside sources. 0 

Broderbund Software, 17 Раш | 
Drive, San Rafael, СА 94903 (phone: 
415-479-1170) 
SEE PROGRAM LISTINGS ON PAGE 88 

See the Reader Service Card located 
between pages 66 and 67 for more 


information on products advertised 
or otherwise pictured in Ahoy! | 
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Ғог (һе С-64 
n light of the money given 
I Lottery Commission, I fig- 
ured I could increase my 
bers it would take to pick up the 
bucks if I had some way of keeping 
Armed only with my trusty C-64 and 
programming skills, I set out to ac- 
weeks of trial, error, and debugging, 
I finally came up with a finished pro- 
tery numbers which have been cho- 
sen, display all possible numbers (4е- 
times each has been chosen, and pick 
out the six numbers which have been 
Now don't get me wrong, this pro- 
gram will not pick out the six num- 
more information you have about 
something the more easily you can 
Operation of the program is fairly 
simple. Once past the title screen, 
first starting your numbers collection, 
use the #2 selection “ENTER NEW 
through the six digits required, The 
program will then display all 44 num- 
will show on the screen, but this will 
change after a few weeks. You will 
most common numbers selected. 
These are the numbers from which 
ter the first time you use the program, 
you must select the first option 
old numbers before you add your lat- 
est entries. One more note: always 
tion "END SESSION". This updates 

your file and ends the program. 
а disk drive. I hope you enjoy using 
itas much as I enjoyed programming 
lottery using my program, don't forget. 

to cut me in. О 


away every week by the State 
chances of picking out the six num- 
record of the numbers already chosen. 
complish this task. After about five 
gram that will store all the past lot- 
pending on state) and the amount of 
most frequently chosen. 
bers you need to win, but I figure the 
make an intelligent choice. 
you work from a main menu. When 
NUMBERS”, You will be prompted 
bers. In the beginning a lot of zeroes 
then be asked to press “Я” for the six 
you can select your six choices, Af- 
“LOAD NUMBER FILE" to load the 
end your program with the #5 selec- 
Lucky Lottery will only work with 
it. And please, if any of you hit the 
SEE PROGRAM LISTING ON PAGE Ш 


Сіс 
created оп DOODLE!; Dragon 
also on DOODLE!; front and 


Ho, rendered on Sorcerer's 
Apprentice; and Polly Wanna £ 
Crackit by Wayne Schmidt, 
using Flexidraw. Contrib- | 
Ё utors to Ahoy!’s Ал Gallery J 
will receive royalties based 
on the sa 
taining the best computer J 
graphics received, both 
published and unpub- | 
lished. Send your best Ё 
work on disk, accom- 4 
panied by a stamped and 
self-addressed mailer, to Morton 
Kevelson, РО. Box 260, Homecrest 


Station, Brooklyn, NY 1 


of your own design, indi 


е the appropriate file parameters, i.e. 


wise from top: Natalie by 
Wayne Schmidt (New York, NY), 


§ by Brian Glover (New York, NY). 


back views of Garfield by Henry $ 


1229. Indicate the drawing package that was used to create the image. If you employed a bit map 
‚ hi-res or multicolor, location of bit map, screen and color 
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Quality For Your Commodore 64 


ORDER BY PHONE AND WE PAY FOR YOUR CALL! 
TO ORDER CALL 612 922-0516 - $1.50 OFF EVERY PHONE ORDER 


The printer enhancer and full spooling buffer for the 
Commodore 64”. 


m Gives you control of your printer while printing 
Enhances the speed of your printer 


Provides the 1525 and 801 printers with true 
descenders and underlining 


SPECIAL $19.95 


QTEAM 


Fully Menu Driven 


Auto Answer - Auto Dial — completely supports 
modems of this type 


m On Line Printing — enables you to print while the 
computer is in terminal session 


m Full uploading and downloading — enables you to 
send files to and from the disk over the phone 


NOW ONLY $29.95 


GRAPHIC PRINTER CADLE 


The Graphic Printer Cable is the truly universal 
graphic parallel printer interface for the Commodore 
64", S x 64™, and Vic-20™ computers. 


= For virtually all Centronics-Parallel Dot Matrix 
Printers 


ш An intelligent 2k buffer is standard 


ш Software Configurable allowing Commodore ” 
printer emulation 


External printer selection switches 


NOW ONLY $89.95 


eua 


The fastest, most reliable and easiest-to-use copy 
prograam for the Commodore 64”. 


= Contains a TRUE INTELLIGENT NIBBLER which 
copies all the information оп a disk and even the 
newest copy protection including half tracks and 
track 36 + 


и FULLY AUTOMATIC! There are no parameters to set. 
You don't even need to swap disks when using two 
drives. 


в REVIRGINS DISKS rather than erasing them, and 
also contains a utility that automatically backs up 
any data disk and removes all data errors in just two 


minutes. 
NOW ONLY $39.95 


Seven day money back guaranteed. 


LIH ETIDIOERTI 


The 100% 1650 compatible modem. Order it with 
Q-Term and get both for only $69.95 
Seven day money back guaranteed. 


STAR 56-10” printer 

with GPC ONLY $339.00 

Star SG-10 features: 

п 120 CPS bidirectional-logic seeking printer 
= Full graphic-word processing features! 

и Near letter quality mode! 


4520 Excelsior Blvd. 
Minneapolis, MN 55416 
(612) 922-0516 


Resder Service No. 157 


соммоговғы COMPUTER AND SOFTWARE C128 COMMODORE 


= COMPUTER 


(Coming Soon — Order Now) 


он PRICES $ 2 %% e оо“ 


* 170K Disk Drive $149.00 * ORDER * Computer Learning Pad $37.95 
* Tractor Friction Printer $159.00 * Voice Synthesizer $49.00 


* 13" Hi-Res Color Monitor $179.00 * * 12" Green or Amber Monitor $79.95 
SPECIAL SOFTWARE COUPON * 12" Daisy Wheel Printer $199.00 


with $19.95 Software Purchase 


5139929 œ 


* COMMODORE b4 COMPUTER $139.00 We pack a SPECIAL SOFTWARE DISCOUNT 
Бақа COUPON with every COMMODORE &4 

» COMPUTER, DISK DRIVE, PRINTER. 
MONITOR we sell! This coupon allows you 
19 SAVE OVER $500 OFF SALE PRICESII 


(Examples) SALE $209.00, 


PROFESSIONAL SOFTWARE 
COMMODORE 64 


SUPER AUTO DIAL MODEM $59.00 


plug in t Commodore 64 


"SALE 539.00 


COMPUTER LEARNING PAD $37.95 

okes other graphics tablets obsolete, This TECH 

SKETCH LEARNING PAD allows you to drow on your 

ТУ. о Monitor and then you con print whatever you 
on your printers. FANTASTIC! 

SALE 137.45 


VOICE SYNTHESIZER 549.00 
For Соттодоге 64 computers. Just plug И in ond you 
program words and sentences, adjust volume and 
ure games. sound action 


80 COLUMN 80 CPS 
TRACTION/FRICTION PRINTER $159.00. 


mstar T.F 


See over 100 coupon items in our catalo 
Write or call for 
Sample SPECIAL SOFTWARE COUPON! 


ATTENTION 


Computer Clubs 
We Offer Big Volume Discounts 


CALL TODA Y! 


КГ Super 
key. dro 


doisy wheel 
Two machines in one 
го large carriage. 
tic margin control and 
ribbon! (90 doy 
5222 serial port built 
O0 SALE $249.00. (Lid. Oty 


80 COLUMNS IN COLOR 
[PAPERBACK WRITER M WORD PROCESSOR 59.00 
ITER 64 WORD PRI 


CARDCO G + INTERFACE $59.00 

з инет» ies interfaces. Т) 
" б e а Commodore prin 
^ nj prin graphics (Оо! 
" 

" 


5 DAY FREE TRIAL НОЕ ORDERS. 
EST SERVICE IN ONEDAYEXPRESSMAIL ә . 12 noon Saturday 


12 noon Saturdays 


0 DAY FREE REPLACEMENT WARRANTY 
OVER 500 PROGRAMS * FREE CATALOGS 


ALASKA. APO.FPO orders. Canadian orders must be in U.S. dollars. у w 2 5 T3 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. We Love Our Customers 
Enclose Cashiers Check, Money Order or Personal Check- Allow 14 22292 М. Pepper Rd., Barrington, Illinois 60010 
days for delivery. 2107 doys for phone orders. | day express mail! 


VISA — MASTER CARD — C.O.D. No C.O.D. to Co! 


до. APO-FPO 312/382-5244 to order 
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FANTASTIC COMPUTER PRINTER SALE! 
"d 


10Х COM-STAR' 
HIGH SPEED 


Tractor Friction Printer 
130-150 CPS 
Only 


$199 


List $499 
СОМ-5ТАВ 157" 150-170 CPS Printer $319” 


* Lowest Sale Price, Premium Quality, Tractor/Friction Printer in the U.S.A. (Best Value) 
% High Speed 130-150 Characters Per Second * 40, 46, 66, 80, 96, 132 line spacing 
* Word Processing, Letters * Business Forms * Labels, Graphics, Tables * List Programs 
* Fantastic Graphics * Print Modem Data * The Most Important Accessory For Your Computer 


Premium Quality 


130-150 СР8 10X COM-STAR п ВЕ ВЕСІ Ф Olympia 


High Speed Printer $199 oxecutive Letter Quality $339.00 
to" carriage, 2K butler, prints 12” DAISY WHEEL E ecutive Letter Quality $339.0 
АН ына АДЫ PRINTER $199.00 This is the world's finest daisy wheel 


continuous feed paper, Bi-directional JUKI" Super 
= тэ NU CS || “JUKI” Superb letter quality dat astic letter quality, up to 
impact, dot matrix, 130-150 CPS, 9 X 9 Wheel printer, 12" extra lar ү р 


ri vi rike с! idle 14.4" 
нк жиз ОР е, up to 12СРЅ bi-directional forms width! Has a 256 character print 
apability for 18 x 18 dot matrix (near printing, drop-in cassette ribbon, (90 
letter quality), high resolution bit P а єр З or Puffer, special print enhancement 
у), day warranty) centronics parallel or built in tractor-feed (Селігопі 
image, underlining, downloadable 1 (3 а oem ls е : 
R serial port built in! (Specify) 39C Interface) (90 
Y à и тасытады › 2C Interface 
characters, true lower descenders Tim ited Quantities 
with super and subscripts, prints [1710100 Quantities, | у 
nani шу block gri EA P pe List $299.00. Sale $199.00. List $649.00. Sale $339.00 
s you print quality 
atures found on printers costing 
as much!! (Centronics Par Lik | 
ce) (Better than Epson FX H 
and Gemini on) of € Olympia 
List $499.00. Sale $199.00. А — Sean Jtor Comhination i3 
Printer/Typewriter Printer/Typewriter Combination $439.00 
Premium Quality 150-170 CPS Combination $249.00 Better than IBM Selectric. Superb 
154X COM-STAR Business JUKI" Superb letter quality, daisy computer printer combined with the 
Шыу: MSL AT Business wheel printer/typewriter world's finest electronic typewriter. 
Super High Speed Printer $319.00 combination. Two ma $ іп опе — Two machines in one, just Шек the 
Has all the features of the 10X COM- just a flick of the switch. 12" ex! switch for up to 20 CPS printing (300 
STAR PRINTER plus 15%" carriage large carriage, typewriter keyboard, Words per minute) on a 15" carriage 
and тоге powerful electronics automatic margin control and relocate that handles up to 14 1/8" in. paper. 
components to handle large ledger key, drop in cassette ribbon! (90 day Drop in cassette ribbon — express lift 
business forms! (Better than Epson warranty) centronics parallel ог off correction, Centronics parallel 
FX 100 & Delta 15) RS232 serial port built in (Specify). interface (90 day warranty). 
List $599. Sale $319.00. List $349.00. Sale $249.00. List $749.00. Sale $439.00. 


* 15 Day Free Trial — 1 Year Immediate Replacement Warranty 


PARALLEL INTERFACES 
For VIC-20 and COM-64 — $59.00. Apple — $59.00. Atari — $59.00. 


Add $14.50 for shipping, handling and insurance. Illinois residents ЕЕ» ROTECTO 
please add 6% tox. Add $29.00 for CANADA, PUERTO RICO, HAWAII 
ALASKA. APO-FPO orders. Canadian orders must be in U.S. dollars 5 2; 

WE DO МОТ ЕХРОЯТ TO OTHER COUNTRIES, EXCEPT САМАРА. We Love Our Customers 


Enclose Cashiers Check, Money Order or Personal Check. Allow 14 22292 М. Pepper Rd., Barrington, Illinois 60010 
days delivery. 2 to 7 days for phone orders. 1 day express mail! 


VISA — MASTERCARD — C.O.D. No C.O.D. to Canada or APO-FPO 312/382-5244 to order 
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хх NEW x x Commodore - 64 * x NEW x x 


“rnc” Paperback Writer 64 "7" 


This is the easiest to use and mos! powerful word processor available for the Commodore 64. As you type on the 

screen, you will see your letters and words appear on the screen exactly os they will be printed (i.e. Italics will 

be /talic, Bold Face will be Bold Face). With the printer files you can customize Paperback Writer 64 to use all the 

fancy features of your printer. Loads EZ Script, Paperclip®). 8 Wordpro 64® Files so you сап easily upgrade 
your past wordprocessing text that you've written with obsolete wordprocessors 

Take a look at some of the other features 

Wordwrap — No Words Break At The Edge Of The Screen. 

Flexible Cursor Movement, Including Tabs And Other Timesavers 

Deletion And Insertion Of Characters, Lines And Blocks Of Text. 

On-screen Text Enhancement. Such As Bold Face, Italics, Underlining. 

Superscripts And Subscripts, And Foreign And Other Characters 


Manipulation Of Blocks (ranges) Of Tex! For Functions Such As Moving 
And Deleting, Even Between Files. 


Sorting Lists In Order Of Numbers And Letters. 

Aligning And Adding Numbers In Columns, Helpful With Tobles. 
Variable Margins At Left And Right, And Paragraph Indentation. 
Lines Centered, Justified Or Aligned А! The Right Side. 
Variable Page Lengths And Line Spacing. 

Borders At Top Or Bottom With Optional Title Lines And Page Numbers. 
Linked Files To Print Extra-long Documents In Sequence. 

Flexible Printer Set-up To Allow Use With Any Printer 

Find And Replace Text Functions That Can Be Automatic 
Complete Or Selective Directories Of Files On The Disk. 
Sequential Files For Mail Lists And Communication With Other 
Computers 

Spelling Checker, Checks Your Spelling 


INTRODUCTORY PRICE Ус Ус Ус Plus y ж ж 


Full help screens on line with additional help on the disks mean 

you don't even need a manual. If you're in the middle of a page 

and you want to know how to use a special function just hit F7 

and the information will appear before your eyes. If you still 

don't understand hit F7 again and a more detailed explanation 

appeors. Then simply hit ЕВ and you're back in 

DOUBLE PROTECTO FREE TRIAL the letter where you left off. No manual lookup 

We are so sure this is the easiest and most powerful word | necessary. This is the easiest word processor іп 

processor available, we will give you 30 days to try it out. If you | the world to use 

are not completely satisfied, we will refund your purchase price. List $99.00. Introductory Sale Price $39.95. 


PAPERBACK DATABASE List $69.00. Sale $34.95. * Coupon $24.95. 
Rezo oa tn” А $0 for CANADA PUERTO REO, Nawan PROTECTO 


WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. We Love Our Customers 
Enclose Cashiers Check, Money Order or Personal Check. Allow 14 


days lor delivery, 2 to 7 days for phone orders, | doy express той 22292 М. Pepper Rd., Barrington, Illinois 60010 
VISA — MASTER CARD — C.O D. 
No C.O.D. to Canada, APO-FPO. 312/382-5244 to order 
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ж 80 CPS PRINTER 2 


Smith Corona 


* Commodore 64 * Ata * Apple * More 
e 11" Carriage * Friction/Tractor * Graphics 


$159 


1 Year 
Immediate 
Replacement 
Warranty 


ттт ates 


Ф EE Tractor Feed 
Included FREE! 


SMITH 
АШ: CORONA 


The Fastext 80 dot matrix printer from Smith-Corona. A high speed, high flexibility printer with a low suggested 
manufacturer's retail price of only $299.00. Sale $159.00. It does your graphics with ease and prints letters with speeds up 
to 80 CPS. (Does Commodore graphics with graphics interface.) As for flexibility, it has bi-directional printing, friction 
and tracter feed . Plus six different pitches including condensed and enlarged type for impeccable characters in a variety 
of sizes. Also standard is a full line buffer and thrifty drop-in ribbon cassettes that yield up to a million characters. Finally, 
it's compatible with virtually all personal computers. Teamed up with your personal computer, it'll keep track of your 
transactions, fly through finances, help with homework, even plan the family menu. All this with the assurance of superb 
Smith-Corona quality built in, makes the Fastext-80 a lot of dot for your dollar. List $299.00. Sale $159.00. 


SPECIFICATIONS: Char. Matrix Size: (Standard) 9H x ВУ RIBBON 
Size/ Weight: Height 4" Width 16.5" Depth 9 Blongete) 10H x 8V Type: Cossette — Fabric inked ribbon 

eig 8.2 tbe Printing Features: Bi-directional, Short line aca edition eee 
Electrical Needs: 120V/60Hz seeking 
Internal Char. Coding: ASCIISISO Printing Speed: 60 CPS CHARACTER MODE 
Print Buffer Size: 132 Bytes (1 line) Character Font: 9 x 8 Standard, 10 x 8 Elongoted, 
No. of Char. in Char. Set: 96 ASCIIS PAPER No. 8 pin to be used for underline 

2 

International Type: Plain Character Set: 96 ASCII, 11 x 7 International Char. 
Graphics Capability: Stondard 60, 72 Dots Per Forms Type: Fanfold, Cut Sheet Pin Graph Mode: The incoming bit pattern 

Inch Horizontal, 72 Dots Per Inch Vertical Max Poper Width: 11 corresponds to the 8 pins in the print head 
Pitch: 10, 12, 16.7, 5, 6, 8.3 Feeding Method: Friction Feed Std.: Tractor Resolution: Horizontal: 60, 72 dots/inch, Vertical 
Printing Method: Impact Dot Matrix Feed Included 72 dots/inch 


PARALLEL INTERFACES 
Commodore 64 — $39.00 Apple II, Пе, П+ — $59.00 Atari — $59.00 


‘Add $10.00 for shipping, handling and insurance, Illinois residents ЕЕ» вот Е ст © 
please odd 6% тох. Add $20.00 for CANADA. PUERTO RICO, HAWAII 


ALASKA, АРО-ЕРО orders. Canadian orders must be in U.S. dollars 


МЕ DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. We Love Our Customers 
Lepr res ple fuiase a 22292 М. Pepper Rd.. Barrington, Illinois 60010 
VIA MASTER CARD соо 312/382-5244 to order 


No C.O.D. to Canada, APO-FPO. 
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(Premium Quality) 


* Built in Speaker and 
Audio 


* Front Panel Controls 
* For Video Recorders 


* For Small Business 
Computers 


* Apple - Commodore - 


(Premium Quality) 


Beautiful Color 
Contrast 


High Resolution 
Separated Video 
Sharp Clear Text 
Anti-Glare Screen 
40 Columns x 24 Lines 
Supports 80 Columns 


Atari - Franklin - etc. 


List 539999 
13" Color Computer Monitor SALE 81799” 


** with $19.95 Software Purchase 
without Software Purchase $189.00 
"Connecting coble $9.95 


15 Day Free Trial - 90 Day Immediate Replacement Warranty 


14" COMMODORE 1702 COLOR MONITOR 
List $299°° 


12" ХТЕОМ SUPER HI-RESOLUTION MONITOR 
80 Columns x 24 Lines, Super Hi-Resolution 1000 lines | ist $24900 
Green or Amber Super-Clear "Easy to Read" text with 
special anti-glare screen! 


12" ЖЕР” HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 
во Columns x 24 Lines, Hi-Resolution, crisp cleareasy | ісі $1 9900 SALE 599099 


to read text with anti-glare screen! A MUST for word 
processing 


12" MONITOR GREEN OR AMBER TEXT 


80 Columns x 24 Lines, easy to read up front controls — List 515990 


SALE 517999: 
SALE 211999 


SALE *79°°` 


* Connecting coble $9.95 


PROTECTO 


We Love Our Customers 
22292 М. Pepper Rd., Barrington, Illinois 60010 


312/382-5244 to order 


Add $10.00 for shipping. handling and insurance, 
please add 6% tax. Add $20.00 for CANADA, PUERTO RICO. HAWAII. 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 

Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
doys for delivery, 2 to 7 days for phone orders, 1 day express mail! 
VISA — MASTERCARD — C.O.D. No C.O.D. to Canada, АРО-ҒРО 
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Commodore 64 


ST One Megabyte 
199 Disk Drive 7199 


Store Spreadsheets, Databases, Wordprocessing Data, Etc. 
* Commodore 64 * PET * 8032 * B128 


The one megabyte disk keeps you from hunting through hundreds of disks for your programs; plus running out of 
room on your drive for Data base Data, Word processing Text, Spreadsheet Data, Business program Data, etc. 


With the One Megabyte Disk Drive you can store over 5% times the capacity of the 1541. You can store your 
own programs and any back-upable commercial programs plus data from your business programs’. Perfect as a 
second Drive!!! ! Enter the world of professional computers today. C-64 requires IEEE interface. 

List $899.00. Sale $199.00. LIMITED QUANTITIES! "Requires 2 drive software 


7999 Sale *299™ 


15⁄2" High Speed 
150-170 CPS 


BUSINESS PRINTER 


The MPP-1361 is a highly advanced 136-250 column 15%” professional tractor/friction printer with full Bit image 
graphics and downloadable characters for custom reports and program listings. The paper feed includes а multiple pin 
tractor for smooth error free operation. With the ribbon rated at 1 million characters (no mess cartridge) and the print 
head at 100 million characters this printer will last a lifetime. Full formatting with near letter quality makes lining up 
decimal points, automatic "5" signs and tabbing look fantastic and easy to use. With out а doubt THIS IS THE BEST 


PRINTER VALUE IN THE U.S.A. List $899.00 Sale $299.00 LIMITED QUANTITIES! 

SPECIFICATIONS 

PRINTING METHOD COLUMN CAPACITY RIBBON LIFE GRAPHICS 

Serial Impact Dot Matrix 136-250 1 Million Characters Bit Image 

PRINT RATE LINESPACING PAPER WIDTH Programmable Characters 

150-170 Characters per Programmable 3" to 15%" tractor or Reverse Characters 

second (СР5) single sheet friction 

PRINT STYLE COPIES, ў INTERFACE ERROR HANDLING 

Near Letter Quality тоноп IEEE Protocol Internal 

PRINT DIRECTION RIBBON TYPE CHARACTER SIZE Self - Diagnostics 

Bi-directional Cartridge ($14.95) 0.116" high, 0.08" wide Microprocessor 


Commodore 64 IEEE Interface 


This interface plugs into your Commodore 64 Disk Drive port and allows you to hook up the 1 Megabyte Disk Drive and 
MPP-1361 Printer as well as other IEEE devices. Separte power supply insures reliability. Fantastic Interface. (includes 
all cables) List $109.95. If bought with printer or disk drive $69.00. 

по interface needed for PET, B-128, and 8032 computers) 


Add $17.50 for shipping. handling and insurance. Illinois residents 
please add 6-4 tax. Add $35.00 for CANADA. PUERTO RICO. HAWAII Pr ТЕСТ 
ALASKA. APO.FPO orders. Canadian orders must be im US. dollars 


WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 


Enclose Cashiers Check, Money Order or Personal Check. Allow 14 We Love Our Customers 
days for delivery, 2107 doys for phone orders. 1 day express mai 22292 М. Pepper Rd., Barrington, Illinois 60010 
VISA — MASTER CARD — C.O.D. 
No C.O.D. to Соподо. APO-FPO. 312/382-5244 to order 
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sy Merging Utility 
z for the VIC and 64 


By William V. Braun 


he thing that I least enjoy about programming is 
the time I must spend entering in code with the 
keyboard. Гуе often wished for some way of add- 
ing general subroutines that I had on tape or disk 
directly to the program I'm working on, rather than having 
to key them all in by hand. Then there were the times when 
I wanted to be able to load two programs into memory right 
from tape or disk and simply combine them into one program. 
Fortunately, I found a way to solve this problem. If you too 
have wished for an easy-to-use appending utility, I have фе 
answer for you. 

Auto-Append is а short BASIC program which loads a ma- 
chine language routine into the top 28 bytes of RAM, and re- 
sets the limit of BASIC a bit in order to protect the routine 
from being overwritten. The machine language routine allows 
the user to enter two programs into RAM directly from tape 
or disk, then combines them into a single program. You can 
use Auto-Append with any amount of memory expansion, as 
the program automatically compensates for it. 

Just follow these simple steps to append two programs: 

1. Load and run Auto-Append. 

2. Jot down the SYS locations in the instructions. 

3. Load the first program (the one with the lower line num- 
bers). 

4. Execute the first SYS (type it and press return key). 


~$5.00 


The IEA Instant Editor Assembler 
is now on SALE for only $5.00 
plus $2.00 rdi ang а. 

Written іп 100% machine language 


Assembles 17k source in 5 seconds 
Coresident Editor Assembler Monitor 


$9.95 each!!! 
for the Commodore 64 


BLACKJACK СІМ RUMMY 


PYSCO SOFTWARE 


Box 301 Bristol, 


WANTED 


COMMODORE 64 computers and 1541 Disk 
Drives; $75 for those in working condition. 
Please call 205-221-5211 
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5. Load the second program (the one with the higher line 
numbers). 

6. Execute second SYS. 

Step 2 is very important, as the instructions will gradually 
scroll off the screen as you load your programs and you will 
probably have forpotten the proper SYS locations. 

It is essential that you keep in mind the fact that the first 
program you load must have lower line numbers than the sec- 
ond program. For example, if the first program ends with line 
number 800, the second program must begin with a line num- 
ber no lower than 801. This is necessary due to the way pro- 
grams are stored in RAM. 

Once you have your programs combined, save a copy and 
verify it before trying to run it. A faulty POKE could cause 
the program to crash, making it necessary to repeat the ap- 
pending process if you did not make a copy of the program. 
Also keep in mind that you must have enough memory (espe- 
cially important on VIC 205) to hold the machine language 
routine and both programs. This is unlikely to be a problem 
on the C-64; however, on an unexpanded VIC 20 you only 
have about 3.5K RAM to work with. 

Adding your general subroutines (such as centering, round- 
ing, etc.) to a program you are working on can be very easy 
if you store them on tape or disk as separate programs, then 
use Ашо-Аррепа to add them to your new program. You may 
want to give them meaningful names such as Center, Round, 
or Hex Conversion. Just load them from tape or disk as needed, 
using their program name. This technique should be much eas- 
ier than having a single program with all the general subrou- 
tines in it, which would make it necessary for you to delete 
all the parts of it you did not want after it had been appended 
to your new program. Don't forget to give the different rou- 
tines different line numbers, and make sure they are very high 
numbers to reduce the possibility of having them lower than 
the highest line number in your new program. 

Let's take a look at the program itself. Line 10 is really the 
workhorse of the program. The first two POKEs lower the 
limit of BASIC by thirty bytes, protecting the machine language 
routine. Memory locations 55 and 56 are pointers for the end 
of BASIC. The variable A is the address where the first byte 
of the machine language routine is to be located. It is also the 
first SYS address. The FOR-NEXT loop in Line 10 actually 
reads the machine language routine which is held in the data 
statements and POKEs it into memory. 

Lines 15 and 20 clear the screen and print the instructions 
on how to use Auto-Append. The second SYS address is equal 
to A+19. Line 25 holds the machine language routine executed 
by the first SYS, while Line 30 holds the second routine. 

The first machine language routine moves the start of BASIC 
to the end of the first program you have loaded, thus causing 
the second program loaded to be located in memory right after 
the first. The second machine language routine returns the start 
of BASIC to its original location. You will notice that if you 
try a LIST after you have executed the first SYS it will appear 
that your first program is no longer in memory. This is just 
because the start of BASIC is now after that program, and а 
LIST causes the computer to start looking for a program where 
there is none. The second SYS returns the start of BASIC point- 
ers to their original value, allowing you to see both programs 
as one. O SEE PROGRAM LISTING ON PAGE 100 
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THE GAMES CREATOR 
Mastertronic International 
Commodore 64 

Disk; $1995 

Calling all would-be computer 
game designers. If you've got the ul- 
timate action challenge bottled up in- 
side you, but dont have the know- 
how to get the idea onto a floppy 
disk, David and Richard Darling's 
The Games Creator is a “must buy.” 

Software which lets non-program- 
mers create adventure games and 
branching stories has become quite 
common in the last year. Until now, 
no comparable system has existed for 
action cont (Broderbund's The 
Arcade Machine, released in 1983, is 
easier to use than assembly language 
or BASIC, but its process is still pret- 
ty complex.) 

Any reasonably intelligent person 
can use this program to produce a 
climbing-and-jumping contest, maze, 
or scrolling shoot-out with extensive 
sound and graphics. A sample of 
each format is included on the disk, 
and most novices will start by modi- 
fying one of these sample games be- 
fore constructing a new one from 
scratch. They're also reasonably en- 
tertaining in their own right, a bonus 
for consumers. 

The 36-page instruction book re- 
duces the gamemaking process to a 
series of small, easily understandable 
steps. The numerous illustrations 
clarify every phase of the process, 
even though fuzzy reproduction and 
sloppy photo cropping undermine the 
pamphlet's aesthetics. A glossary ac- 
quaints users with any unfamiliar de- 
sign terms. 

An onscreen menu, operated with 
a joystick or the keyboard cursor con- 
trols, is the hub of the system. 
lecting “Change; as opposed to “ 
"Save? or “Load,” begins the con- 
struction of a game. 

The designer can work on aliens, 
sounds, graphics, or the player. When 
one aspect of the game is done, the 
f7 key restores the main menu so the 
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Must buy for frustrated programmers. 
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gamer can choose another. 

Sub-menus regulate the aliens’ on- 
screen motion and behavior charac- 
teristics. There are five aliens from 
which to choose. The inventor can 
adjust random movement parameters, 
use the joystick or cursor keys to out- 
line a predetermined movement path, 
and select the alien's starting position 
on the screen. The other menu con- 
trols animation speed, movement 
speed, the ability to scroll off the 
screen, shooting, the mechanism for 
advancing to higher levels, collisions, 
and the number of nasties. 

Sound is divided into tunes and ef- 
fects. A serviceable music construc- 


Manage the greatest teams of all time. 
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tion kit can be used to write up to 
seven pages of music and make it 
sound like any of several instruments 
when played. A program can employ 
up to seven sound effects to aurally 
indicate when the player fires a bul- 
let, gets killed, collides with an al- 
ien, and so forth. The individual ef- 
fects can be styled by adjusting the 
attack, decay, frequency, and wave- 
form. The computerist can check a 
sound by hitting fl while working 
with the effects menu. 

Two sub-menus split graphics into 
scenery and sprites. The former per- 
mits the pixel-by-pixel construction 
of playfields; the latter focuses on the 
game's moving objects, or sprites, of 
which there can be up to eight. 

The final menu commands the 
computerist's own onscreen represen- 
tative. Among the user-determined 
factors are the player's starting point 
in the game, the keys which cause 
movement, how far a character can 
fall in a jumping game, and whether 
the player moves continuously or on- 
ly in response to specific directives. 

The obvious question is: What 
about the resulting games? Games 
Creator programs aren't state-of-the- 
art stunners, but they can be attrac- 
tive and a lot of fun to play. The Darl- 
ing Brothers have streamlined the 
construction process by restricting 
choices, especially in sound and 
graphics, without leeching the life out 
of it. With practice, an imaginative 
computerist can invent action pro- 
grams which would be a credit even 
to the code-wizards who developed 
The Games Creator. 

Mastertronic International, 407 
Park Avenue South, Suite 16А, New 
York, NY 10016 (phone: 212- 
213-0166). -Атіе Katz 


MICRO LEAGUE BASEBALL 
Micro League Sports Association 
Commodore 64 
Disk; $3995 

Strike three! The ballgame was 
over. And even before the Mighty 
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Casey finished his post-game show- 
er, Mudville rooters were second- 
guessing the slugger's manager over 
a round of brews. One secret of base- 
ball’s enduring popularity is its end- 
lessly fascinating strategy. 

Statistical simulations like Micro 
League Baseball give armchair man- 
agers the chance to improve on real- 
ity. Their mathematical formulas 
quantify the performance of major 
leaguers so that each athlete in the 
game reflects the real-life player's 
abilities during the season on which 
the program is based. So if you te- 
played a full season, using each play- 
er exactly as his flesh-and-blood 
manager did, team and individual sta- 
tistics would virtually duplicate the 
actual seasons totals. 

While some players of statistical 
simulations do, in fact, try to precise- 
ly recreate the past, most want to 
change history. Could a revised pitch- 
ing rotation improve a team’s finish? 
Is there someone riding the bench 
who ought to be playing every day? 
Would the team score more runs if 
it emphasized the hit-and-run over 
longball power? 

Micro League Baseball gives com- 
puterists the chance to answer these 


and other equally intriguing questions. 


This is a rock-solid stat game dressed 
up in visuals which would do any ac- 
tion baseball program proud. 

One or two human managers— 
there's a robot pilot for solitaire fun— 
can choose any of the 25 famous 
teams on the Game Disk. The pub- 
lisher plans Team Disks, available for 
purchase separately, which will соп- 
tain many more squads, including all- 
time all-star rosters for each major 
league franchise and disks that simu- 
late full seasons. An easy data trans- 
fer routine lets the computerist match 
a team on any Micro League Base- 
ball disk with any other team on a 
similar disk. Thus, it's possible to see 
how the Yankees of Mantle and Maris 
might stack up against the Bronx 
Bombers of Ruth and Gehrig. 

The Game Disk contains an an- 
thology of teams, intended to show 
the scope of the manufacturer's in- 
tended future releases. The Game 
Disk includes some recent jugger- 
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nauts (78 Yankees, ‘80 Phillies, "80 
Royals), classic teams of the past (27 
Yankees, "55 Dodgers), and some all- 
star squads (all-time AL and NL 
greats). And masochists will thrill to 
the exploits of the numbingly inept 
"55 Washington Senators, one reason 
why there's no team in the nation's 
capital today. 

Each team comes with a suggested 
lineup. Onscreen menus help a man- 
ager switch things around to suit per- 
sonal preference. The program pro- 
vides mounds of statistics to aid in 
the selection process. Won-lost гес- 
ord, games saved, ERA, games 
pitched, complete games, innings 
pitched, hits allowed, strikeouts, and 
walks are listed for all pitchers. The 
rest of the team members are rated 
for batting average, home runs, runs 
batted in, times at bat, hits, doubles, 
triples, stolen bases, and field aver- 
age for any positions they can patrol 
on the field. 

The defensive pilot chooses the 
hurler’s delivery from among four 
possibilities and positions the infield- 
ers. They can also call for a pitch- 
out, order an intentional walk, or vis- 
it the mound. 

The offensive manager can have 
the batsman swing away or lay down 
a surprise bunt. The skipper directs 
traffic on the basepaths and can or- 
der a sacrifice or hit and run. 

Players view the action from a seat 
in the upper deck behind home plate. 
Small windows indicate who is at bat, 
on the mound, and in the on-deck cir- 
cle, while the centerfield scoreboard 
prints pithy comments as the game 
progresses. Although the players are 
drawn small on the screen, wonder- 
fully intricate animation makes their 
movements easy enough to follow. 

Sound effects and music are more 
than adequate, but they slow down 
play. Computerists can cut playing 
time to about 30 minutes by hitting 
“М” when prompted. This clips the 
lengthy musical interludes and the ad- 
mittedly impressive spectacle of hav- 
ing the ballplayers run on and off the 
field after each half-inning. 

Micro League Baseball's flaws are 
few, but still worth mentioning. The 
inaugural edition doesn't print a box 


REVIEWS 


score or allow teams to swap players. 
The company has released a Utility 
Disk, priced at $19.95, which adds 
these functions. 

The pitching system has а few 
kinks. Each throw merely symboliz- 
es one complete interaction between 
à hitter and pitcher, so it's not realis- 
tic to call the hypothetical toss a 
“curve” or “fastball.” Also, many рге- 
World War II pitchers didn't throw a 
slider. Perhaps this option on the 
pitching chart could be made more 
flexible to allow for a "specialty" pitch 
like a forkball or knuckler. 

Documentation is outstanding. 
There is a rule book, profiles of all 
clubs on the Game Disk, and two 
cards which summarize the keyboard- 
based order-entry system. 

Micro League Baseball is highly 
recommended for baseball-loving 
computerists. It provides plenty of 
mental stimulation and authentic ac- 
tion in an attractive package. 

Micro League Sports Association, 
28 E. Cleveland Avenue, Newark, 
DE 1971 (phone: 800-PLAYBAL). 

-Атіе Katz 


PENMAN ROBOT PLOTTER 
Axiom Corporation 
Commodore 64 
539900 
When I discovered that the Penman 
plotter had arrived for review, I was 
ecstatic. This plotter appeared to be 
one of the most exciting peripherals 
to come along in a while. 
Traditional plotters have a pen that 
moves about over a piece of paper by 
means of a rail in each direction (x 
and y). More recently, plotters have 
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sported a pen that moves only in the 
х direction, while the paper moves 
to provide y-axis movement. The 
Penman is completely different. It 
features an intelligent base unit con- 
nected to a “robot” via a ribbon ca- 
ble. This robot holds three pens and 
plots by rolling around on top of the 
fixed plotting surface. 

The Penman is ingeniously engi- 
neered. It has two wheels that drive 
it, and one unrestricted wheel for bal- 
ance. When initialized, the Penman 
aligns itself with the edges of the pa- 
per by rolling toward the edge until 
its bottom optical sensors detect a 
contrast difference between the pa- 
per and background; then it backs up, 
turns, and seeks the other edge. All 
this is purely fascinating to watch. 

The Penman can be told to plot in 


A reduction of another Penman plot. 


two ways: by Cartesian coordinates 
or polar coordinates. Plotting each 
way is very simple. The plotter is 
simply given a set of coordinates, or 
a direction and distance. Smooth cir- 
cles are drawn in polar mode by giv- 
ing a curvature parameter. An addi- 
tional robotics mode gives you direct 
access to the drive motors and opti- 
cal sensors for more direct control of 
the robot unit. A standard character 
set is also built into the plotter. Text 
can be plotted at various sizes and an- 
gles with ease. 

Interestingly enough, all lines, cir- 
cles, and shapes drawn by the Pen- 
man are completely smooth, in con- 
trast to the stepped lines drawn by 
other inexpensive plotters. This is due 
to the fact that the Penman draws by 
continuously varying the speed of its 


two drive motors to produce smooth 
plots. Another interesting feature of 
the Penman is its ability to “unwrap” 
itself automatically from the connect- 
ing cable. 

The only gripe I have with the Pen- 
man is that on complex plots accur- 
acy is lost. One way around this is 
to have the robot realign itself every 
so many moves, but this takes time, 

The Penman interfaces through any 
RS232 port and is driven by standard 
ASCII commands. At a price of 
$399, it is a surprising value in a low 
cost plotter. 

Axiom Corporation, 1014 Griswold 
Avenue, San Fernando, CA 91340 
(phone: 818-365-9521). 

—David Barron 


VISION BBS V&3 
Vision Software Co. 
Commodore 64 
Disk; $69.95 

As the System Operator (SYSOP) 

azine's bulletin board ser- 

vice (BBS) and longtime SYSOP оГ 
my own BBS, I have spent a great 
deal of time examining the BBS soft- 
ware currently available for the Com- 
modore 64. With the wide variety of 
BBS's now in use, choosing the soft- 
ware that offers the best value for 
your money is not simply a matter 
of buying the most expensive you can 
find. Fortunately, Vision Software has 
recently released an outstanding en- 
try into the marketplac: 

Vision BBS V8.3 offers all the fea- 
tures you would expect of a good 
BBS, combined with a price tag that 
won't destroy your budget. With fea- 
tures such as new style Punter up and 
downloads, up to 99 different mes- 
‚ and a userlog that can 
hold up to 999 users, plus the ability 
to work with as many as five drives, 
this software is a joy to use. Though 
the clear, well-written documentation 
claims a setup time of 1 hour, those 
of you who аге new to bulletin boards 
should allow a little extra time to plan 
out the many different menus that 
must be written. 

Once the various menu files have 
been created, the BBS is ready to go 
online. The first user entered should 
naturally be the SYSOP. and subse- 
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quent users are added to the userlog 
as they call in. Each user is required 
to choose an 8-digit password and is 
assigned a user code as well. New 
users may be given a low access lev- 
el until the SYSOP has time to exa- 
mine their application, whereupon 
their security level can be raised to 
allow them access to more features 
on the BBS. Security levels can range 
from a low of 1 to a high of 99. 

One especially useful feature of this 
software is the ability of the SYSOP, 
and selected users, to control the op- 
eration of the BBS from a remote ter- 
minal. By selective use of high ac- 
cess levels, the SYSOP can allow var- 
ious users to log on and control in- 
dividual areas of the BBS from their 
homes. This reduces the amount of 
time the SYSOP must spend main- 
taining the BBS and updating the 
files. 

Another very interesting function 
of this program is that it can also be 
used as a terminal program, allow- 
ing the SYSOP to log on to other 
BBS's to trade files and information 
without the need to load in a differ- 
ent program. This feature alone is, 
in my opinion, worth half the cost of 
the software. 

One drawback that I noted while 
setting up my preliminary copy of the 
BBS is the lack of a text editor, which 
is required to generate the various 
menus used. A quick call to the 
manufacturer brought swift assuran- 
ces that all future versions will in- 


clude not only a text editor but a tim- 
ing system that will remove the BBS 
from the phone line at a predeter- 
mined time if you choose to run your 
BBS on limited hours. 

Persons interested in viewing this 
software before buying may call the 
Ahoy! BBS at (718) 383-8909, 24 
hours a day, 7 days a week. 

The current price for the software 
is $69.95, and registered owners can 
purchase a backup copy for an addi- 
tional $1000. Future updates will also 
be made available to registered own- 
ers at a cost of $25.00. More infor- 
mation may be obtained by calling the 
Docs ‘Е Us BBS at (914) 668-3664, 
or by writing the manufacturer at the 
address given below. 

When ordering, please specify 


which type of modem you plan to use. 


There is а 510.00 charge to change 

modem types at a later date. 
Vision Software Co., PO. Box 534, 
Bronx, NY 10461 (phone: 212- 
829-1538 voice; 914-668-3664 data). 
—B.W. Behling 


SOUNDCHASER 64 
Passport Designs, Inc. 
Commodore 64 
$19900 

At first glance, the Soundchaser 64. 
musical keyboard appears to be first 
rate. Unfortunately, the supplied soft- 
ware doesn't enable the keyboard to 
live up to the expectations set by its 
appearance. 

To start on the positive side, the 


keyboard is a full-sized 4-octave unit 
with an excellent feel. The housing 
is attractive tan plastic, matching the 
Commodore. Connection to the com- 
puter is made via a ribbon cable to 
the cartridge port. Overall, this is one 
of the finest keyboards I have en- 
countered. 

The BASIC Synthesizer Software 
provided includes a monophonic and 
a polyphonic synthesizer. The mono- 
phonic package is reasonably good; 
it allows all oscillators to play in uni- 
son, producing a very ‘fat’ sound. Ad- 
ditionally, there is a LFO (low fre- 
quency oscillator) that can be used to 
produce vibrato and other special ef- 
fects. Thirteen presets, which can be 
modified at will, are included. They 
are good, but I was able to improve 
on most of them through the includ- 
ed sound editor. 

The polyphonic synthesizer allows 
you to play the keyboard with up to 
three notes pressed at once. Six pre- 
sets are included; they are fair, none 
being very impressive. The limitation 
on the presets is caused by the lack 
of any special features as found on 
the monophonic package. 

Neither package makes any provi- 
sion to ‘record’ in any way. Modified 
presets cannot be saved to disk, and 
the mono/poly programs are separate 
and not directly accessible from one 
another. Fortunately, Passport told us 
that they will release versions of 
Macmusic and Computer Sheet Mu- 
sic that will take advantage of the 
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Soundchaser. Hopefully, these will 
make an improvement in a device 
with great potential. 

Passport Designs, Inc., 625 Mira- 
montes Street, Suite 103, Half Moon 
Bay, CA 94019 (phone: 415- 
726-0280). — David Barron 


VIZASTAR INFORMATION 
PROCESSOR 

Solid State Software 

Commodore 64 

Cartridge and disk; 819.97 or 
$149.97 (see below) 

“Innovative? “awesomely powerful 
“sorely needed,” and “incredible guar- 
antee” are phrases I immediately as- 
sociate with VizaStar. These words 
aptly summarize this unique “work 
processor.” Other apropos descrip- 
tors: “humongous cell capacity; “im- 
pressive graphics; “multiple window- 
ing,” and "easy-to-use;" the list goes 
on and on, but you have the idea: this 
is a program unlike anything else for 
the C-64! 

VizaStar is an integrated software 
package; that is, it consists of three 
programs that work interactively, Re- 
siding simultaneously in memory, the 
spreadsheet, database, and business 
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graphics programs are always im- 
mediately available. Each is outstand- 
ing in its own right. By integrating 
their features, Solid State Software 
has provided tremendous capabilities 
for information handling on the C-64. 
The only comparable product would 
be Lotus 1-2-3 for the IBM PC; noth- 
ing in the C-64 world comes close 
to the vertical integration features of 
VizaStar. 

The terms information processor 
and work processor, used by Solid 
State, describe not only what VizaStar 
is, but what it does. 

All functions and applications for 
the program are menu-driven, and se- 
lections are supported by sub-menus. 
The basic display consists of a work- 
sheet grid, and all labels, data, for- 
mulae, etc. are entered on it. Multi- 
ple windowing capability (up to 9 
windows "open" at a time) allows 
viewing several portions of the work- 
sheet simultaneously for comparison 
or reference purposes. 

The program will support most 
popular printers suitably interfaced. 
Although a printer isn't mandatory to 
use VizaStar, it certainly is desirable. 
As of this writing (4/25), only the 
1541 Disk Drive is supported. 

The spreadsheet grid is a matrix 
of 1000 rows and 64 columns, yield- 
ing a maximum capacity of 64,000 
cells! Cell formatting either individ- 
ually or globally is provided in cur- 
rency, scientific, date, left- or right- 
justified, centered, integer, and gen- 
eral purpose formats. Additionally, 
they can be globally or individually 
protected from modification. 

Built-in functions for use in formu- 
lae include date processing and date 
calculations, in addition to the nor- 
mal + — * / mathematical operators. 
The date functions are extremely use- 
ful and can be used for schedule plan- 
ning, invoicing, “time-stamping” data, 
and multitudes of other applications. 
The built-in functions consist of: 

CALENDAR: (date, @day, 
(month, (year, @today 

LOGICAL: @false, @true, 
@isna, @iserr, @if, @err, @na, 
and, or, not 

MATHEMATICAL: | (аһ, 
@cos, (exp. @int, @log, @round, 


@sin, @sqrt, @tan, (pi 

STATISTICAL: @avg, @count, 
@max, @min, @sum 

TABLE LOOK-UP: @hlookup, 
@vlookup 

A very powerful feature of VizaStar 
is the automatic keyboard “EXEC” 
facility. This allows you to set up a 
sequence of commands which can be 
executed at any time, further expand- 
ing the program's range of complex 
applications. 

Database operations are called up 
from the worksheet, and a collection 
of up to 15 indexed files is possible. 
Each file holds records which can be 
up to 8,000 characters in length. The 
records may contain up to 64 differ- 
ent fields, and the fields can be up 
to 120 characters long. The average 
disk access time for any random гес- 
ord is three seconds on the 1541, fast 
enough to be envied by some “dedi- 
cated” database programs. 

Database file layouts are easily 
configured on a blank screen and re- 
versed headings and borders are pos- 
sible. You can include up to nine 
screens per file layout, more than suf- 
ficient for just about any application. 

AII database processing is direct in 
the program, and search criteria may 
be combined if desired. Search op- 
erators include: 

*-wild card match 

?—individual character position 
match 

& —match if following characters 
are found 

< —less than match 

> —greater than match 

<-—-—ignore/do not match 

Business graphics functions allow 
translating spreadsheet/database in- 
formation into line and bar graphs, 
and windowing is permitted and sup- 
ported in this mode as well. Addition- 
ally, the XGP (Extended Graphics 
Package) is included with the pro- 
gram, which provides two impressive 
and sophisticated graph modes — col- 
or “pie charts" and 3-D, 4-way-scroll- 
ing "skyscraper" graphs. These 
graphing formats are the best I've 
seen yet for the C-64, bar none. 

The XGP graphs (pie & skyscraper) 
may be labeled and printed out di- 
rectly on a Commodore MPS 801 or 


http 


Epson-compatible printer with suit- 
able interface. Line and bar graphs 
are supported on almost all popular 
printers suitably interfaced. The 
printer functions will also support 
printing reports and labels. 

VizaStar is extremely fast in terms 
of records access speed and overall 
operation due to the fact that it is 
written in 100% 6502 Machine Lan- 
guage. It is compatible with most 
word processors for the 64. 

The VizaStar software resides both 
on cartridge and disk; the cartridge 
must be inserted while using the pro- 
gram. Two copies of the program 
disk are provided. In addition, a Tu- 
torial Guide manual and a spiral- 
bound User Reference Guide manual 
are included, all inside a partitioned 
vinyl case that provides convenient 
and durable storage. Rarely do you 
find documentation equal to the cali- 
ber of the software it pertains to. 
VizaStar gets a solid 4-star rating in 
this department. 

VizaStar has a retail price of $119.97 
(version XLA; see below), not expen- 
sive when you consider that a good 
database will cost you about $100, as 
will a spreadsheet with decent graph 
capability, but not a small piece of 
change, either. Solid State Software 
is so confident in the product that 
they offer a full refund for any rea- 
son by returning it to the place of pur- 
chase within 15 days. After using 
VizaStar, I predict that Solid State will 
have very few refunds to make. 

Though it's an incredibly powerful 
piece of integrated software, I found 
VizaStar quite simple to use, thanks 
to the excellent tutorial and reference 
manuals. The onscreen menus and 
sub-menus present the program op- 
tions and functions in a clear, logi- 
cal manner. Learning to use VizaStar 
is painlessly accomplished by follow- 
ing the tutorial guide and entering the 
examples. Unique features like the 
EXEC facility make it possible for 
novices to set up and execute com- 
plex command sequences. 

Owing to the far-ranging capabili- 
ties of the program, it can be used 
for all sorts of applications. I found 
it particularly well suited for plan- 
ning, projecting, visual analysis of 
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data, scheduling, maintaining cus- 
tomer records, mailing lists, generat- 
ing reports, and other information- 
handling tasks. I'm sure that the use- 
ful applications of VizaStar are limi- 
ted only by the user's imagination. 

If you're looking for a serious ap- 
plication program to handle your 
spreadsheet, database, and business 


graphics tasks, your search has ended. 


VizaStar does it all, and does it all 
amazingly well. 

(VizaStar is available in two ver- 
sions: the standard XL4 with 10K of 
free RAM ($19.97) and the XL8 with 
ИК of free RAM ($149.97).) 

Solid State Software, 1125 E. Hills- 
dale Blvd., Suite 104, Foster City, CA 
94404 (phone: 415-341-5606). 

—Tom Benford 
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Since November 1984, Мг. Nibble has 
successfully copied heavily protected 
diskettes for grateful C-64 owners! 


--- 
mRB.NIBBLE 
delivers ! 


The next generation in archival 
methods is here today! 

No better disk copier at any price 
* Easy-to-use — no complicated 
instructions 

Totally automatic — no knowledge 
of DOS required 


You'll LOVE MR. NIBBLE™ — if not, 
return within 10 days for full refund 


Own THE FINEST DISK COPIER SYSTEM for 


The C-64 and 1541 disk drive - Onder today! 


FULL CIRCLE SOFTWARE, INC. 
P.O. Box 1373 


Full Circle Dayton, Ohio 45401 
Software, Phone (513) 223-2102 


$49.95 no resans seat sales ш) 


\_ Special MSD Version now available! J 


Reader Service No. 106 


10 day return privilege. 
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а Breakthrough in Value! 


ULTRABYTE 


DISK DUPLICATORS 
with FREE BACKUP COPIES 


ULTRABYTE NOW OFFERS TWO OF THE BEST COPY 
PROGRAMS ON THE MARKET. AND BOTH COME WITH 
FREE BACKUP COPIES. 


ULTRACOPY Il 


Jim Lagerkvist’s sequel to the иан ULTRACOPY 64 
owned by thousands of satislied customers. 


Copies protected disks in 8 minutes on a single 1541 

Does nol "hammer" the disk drive. Will nol affect alignment 
Formats, copies and produces errors automatically in one step 
Features Normal Scan for reliable copies of most disks 
Includes Deep Scan with 38 track and hall track capability 
Copies 90% of programs on the market 

Free backup сору -two disks for the price of one 

Technical support available by telephone 

Simple to use. Tone signals disk swaps 


ULTRABYTE DISK NIBBLER 


Uses pro Ry revision of disk operating system (DOS) to make 
a bit by bit copy. This process, called nibbling, copies the format, 
data and errors, all at the same time. Errors are not recognized 
and do not hammer the drive. Built in fast load environment allows 
copies in 8 minutes with a single 1541 disk drive. 
е Easy to use. No separate analysis or error production 
® Choose 35, 36,37 or 38 tracks to copy incl. half tracks 
е Makes up to 5 copies of each original — | UNIQUE FEATURE) 
Backs up 99% of all software 
Free backup сору -two disks for the price of one 


FREE BACKUP DISK 


ULTRACOPY || and the NIBBLER are independent products by different authors. Both 
are excellent and either should meet your needs. You may order two disks of one 
product for $39.95 plus $4.00 shipping and obtain а single disk of the other for 
$20.00 plus $3.00 shipping. Sorry. free backup must be same as disk purchased. 


FOR 2 COPIES OF EITHER 
530,55 ULTRACOPY II OR THE DISK NIBBLER 


plus $4.00 shipping and handling. Mastercard, Visa, Check or M.0,. Foreign orders 
or COD add $2.00. Calif, add 6.5% ($2.60) sales tax. Additional backup copies are 
$2000 plus $3.00 shipping 

ATTENTION : Owners of ULTRACOPY or the NIBBLER whose names are in our file 
may order а single copy of either product for $20.00 plus $3.00 shipping. 


Write or Call 24 Hour Order Line 
ULTRABYTE ( 818 ) 796 - 0576 
Р.О. Вох 789 La Canada, СА 91011 


DEALERS & DISTRIBUTORS WANTED 
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ON STAGE ($24.95) 

MUSIC VIDEO HITS ($24.95) 
3001 SOUND ODYSSEY ($3995) 
Sight & Sound Music Software 
Commodore 64 

Disk 

Just let me hear some of that rock 
& roll music, any old way you choose 
i" 

Апу old way? Chuck Berry might 
have had a few second thoughts if he 
had anticipated the invention of the 
home computer. Thirty years after 
those words were written, rock and 
roll has transcended the world of 
electric guitars and drums and en- 
tered 10 world of microprocessors. 
One of the first examples of this phe- 
nomenon to reach the marketplace is 
Sight & Sound's new "computer song 


| albums" 


It was only a matter of time before 
somebody figured "Kids love rock, 
kids love computers, the C-64 has 
tremendous musical capabilities, so 
let's turn some rock songs into com- 
puter-generated music.” 

That's exactly what they've done. 
On $ and Music Video Hits are 
essentially collections of recent pop- 
ular sc translated for c 
Music Video Hits includes 
Lets Hear It for the Boy, ^ 
Dreams, Break My Stride, Steppin’ 
Out, Soul Man, Classical Gas, and 
The Hustle. On Stage features On the 
Road Again, Ease on Down the Road, 
Rise, Duelling Banjos, Cantina Band 
(from Star Wa entertainment To- 
night, Charlie's Angels, and Far from 
Over 

As the Commodore's SID chip 
pumps out the music, the “sheet mu- 
sic” appears onscreen. Notes dont 
scroll by, they sort of flash on and off 
in musical phrases. After a three-note 
phrase is finished, the notes disap- 
pear and get replaced by the next 
three. At the bottom of the screen you 
see the words to each musical phrase, 
as well as the words to the next 
| phrase. 

The music itself has been compe- 
mmed by Peter Engel- 
of the Commodore's three 
voices can be distinctly heard, which 
is intriguing to listen to. With most 
rock music, it's very difficult to sep- 


arate the various instruments in your 
head. 

Synthesizers are adding a new di- 
mension to music, as is obvious from 
recent songs by Herbie Hancock, 
Thomas Dolby, The Eurhythmics, 
and others. But simply taking a song 
and synthesizing it is not necessar- 
ily an improvement. Just the oppo- 
site, in fact. Digitized Thriller is in- 
teresting at first, but after a few min- 
utes you get the distinct feeling that 
you're on an amusement park carou- 
sel ride. The music is machinelike, 
automatic. The human emotion is 
missing. It's the Muzak-rock of the 
1980's. 

Whenever we complain about 
computer-generated anything, we can 
usually add, “Вш this is more than 
compensated for by the computer's 
ability to interact with the user" Un- 
fortunately, this isn't the case with 
Sight & Sound's computer song al- 
bums. Hitting the number keys on the 
top row will speed the music up and 
slow it down. Manipulating the joy- 
stick will slightly change the "instru- 
ments" and create “special effects? But 
the interaction is minimal. You can't 
edit the notes to Sou! Man and add 
а few licks of your own 

Sight & Sound does make two 
other programs —7he Music Proces- 
sor and The Music Video Kit—which 
are compatible and allow more crea- 
tivity when combined with the com- 
puter song albums. Both are sold sep- 
But if you buy the computer 
song albums alone, you're basically 
just getting rehashed rock, at four 
times the cost of a regular album by 
the original artist. 

You've got to really like computer 
music to go for a deal like that. Sight 
& Sound's selection of songs certain- 
ly doesnt make it easy. Admittedly, 
there are some good tunes here, but 
each disk is a random hodgepodge of 
musical styles that is guaranteed to 
please nobody. Do fans of Joe Jack- 
son's Steppin’ Out really want to hear 
The Hustle...or vice versa? Willie 
Nelson fans will certainly get into On 
the Road Again, but do they care 
about Ease on Down the Road? Ma- 
son Williams Classical Gas is a good 
song, but get hip, gang— it's 17 years 
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And why anyone would ever 
want to hear computerized renditions 
of the themes from Entertainment To- 
night or Charlies Angels defies the 
imagination. Even К-72/ wouldn't re- 
lease an album with selections like 
these. It seems as though Sight & 
Sound just threw on any songs that 
were available to license. 

The heart of rock and roll is still 
beating, but not on floppies. Real mu- 
sic lovers should stick with the real 
thing. 


But real music lovers may be in- 
terested in another disk made by Sight 
& Sound—300] Sound Odyssey. 
Many of us are familiar with terms 
like volume, pitch, waveform, and 
envelope. These are the physics of 
sound that make, for example, a 
trumpet sound different from a piano. 
Though you may have heard of all 
these terms, chances are you don't 
fully understand them. Dictionary 
definitions don't help much when it 
comes to vague, non-visual concepts. 

If only we could manipulate wave- 
form or envelope ourselves these con- 
cepts would become clear. The com- 
puter is the perfect medium to active- 
ly experiment with the physics of 
sound. 300] isn't а music program 
like Music Construction Set or Musi- 
calc. It’s a synthesizer that teaches 
you and shows you how to play with 
the parameters of sound. The pro- 
gram includes an excellent tutorial 
that explains all the terms and pro- 
vides examples of each. After each 
section, you can get a “Show Me” or 
a “Try Me” demonstration. 

Once you learn the difference be- 
tween “modulation” and “pulsewidth? 
switch to the “microsynth” mode and 
go crazy. A tap of the joystick lets you 
turn the Commodore's three voices on 
and off, play with filters and modu- 
lation, and manipulate all the el 
ments of sound. Change the wave- 
form from “sawtooth” to “pulse” and 
see what happens. The top two rows 
on your keyboard form a mini-piano 
keyboard that will let you create an 
unlimited number of sounds, from 
beautiful music to awful noise. If 
you're interested at all in the creation 


of music and sound effects, you'll find 
3001 Sound Odyssey an educational 
and fascinating experience. 

Sight & Sound Music Software, 
Inc., 3200 South 166th St., New Ber- 
lin, WI 53151 (phone: 414-784-5850). 

—Dan Gutman 


“I think the personal computer is 
getting а little too personal." 


MAGIC! 


COMMODORE 64 


TAROT 
COMPLETE 78 CARD DECK 
KELTIC LAYOUT 
DIVINATION 


| CHING 
ALL 64 HEXAGRAMS 
ALL MOVING LINES 


AMERICANIZED 


VOO DOO 

SUMMON LOAS 

CAST SPELLS 
DOLLS 


DISK ONLY—$30 EACH 


WARESOFT 


SOFTWARE 
BOX 6 


CHEWELAH WA 99109 
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HITE HOUSE 
Р.О. BOX 4025, HOURS: Monday thru Friday 
COMPUTER WILLIAMSPORT, PA 17701 
* PRINTERS * 
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DISK DRIVES 
case MONITO! 


1571 ШЕ e C-64 MANNSEMAN TALLY 

1572 375.95 MPS 801 А 179.95 Spirit 80 249 
MSD Single 229.00 802 208.95 MT 160L 495 
MSD Dual 45900 | 803 175.95 МТ 1801 595 
Indus GT 23900 | MCS вот 314.95 

Cardco SCD-1...19900 № DPS 1101. 314.95 STAR MICRONICS 


SG10 217 
CITIZEN SG15 379 


INTERFACES 


EPSON 

RX80. 219 САНОСО 

LX80 249 101 365 
FX80 369 

s $$ WLAS.. 
RX100 369 PANASONIC 


Grappler СО 89.95 


ZENITH 
122 


123 


BMC 


PRINTER PAPER 
Lazor 1000 зв... 15.95 
Lazor 2500 shts.. 29.95 


о 


05/00 
ІММОУАТІУЕ 


19.50 


FAST LOAD..... .23.95 


WE CARRY A FULL LINE OF: 


С-128 ...275.95] PRINTER RIBBONS 


DUST COVERS 


Innovative Concepts, Koala, LJK 


S S.l. Synapse. Time Works, Wico. 


С-1670......185.95 Tele Compuserve 
300/1200 Band Learning ..... 49.95 StarterKit...21.95 


tax. Defective products must have 
Schools net 15. 


sores? 1-717-322-7700 


Accepted 496 


Color 710 


Tymac MSP-10... 325 5010 345 № ТЕКМКА 
Connection/2K ...62.95 | MsP-15 479 5015 450 № мо 
Cardco +G 59.95 В МЗР-20 469 5910 485 M woo? 
cece 37.95 MSP-25 629 SR15 585 нон 
аи, а Ромепуре 309 


Comcolor I. 189 


DISKETTES Ж FX100 550 1090 187 Amber 82.95 
SKC б 1091 257 ©'ее" 7995 
1 C. ITOH 

8555 |... 18.80 | 519^ 205 1092 Sas | соммооов — ous 

05/00........15.50 |8510 BC! 329 3151 C-1802 204.95 

MAWELL С-1902 RGB 259.95 
01 nchrome 29.95 

MD-1..........15.95 0 8510 БР 389 LEGEND C-1901 Monchrome... 129.95 

МО-2..........21.95 5551058 4297 “5505 

ELEPHANT 8510 SCP 4507 “1980 

55/50 13.50 8510 SCR 477 1385 

55/00 15.50 


CONCEPTS с 
Flip-N-File F10 Tractor 169 93 560.95 
10 3.50 @ F10 Sheet Feeder 349 Imagewriter 425.95 
15 ВКО і" 
Азлан 18.50 УТМР 
w/lock SOFTWARE Ж VIDEO CASSETTE ЖЖ NN 
20 и Ea BATTERIES ECORDER 95 " 
ROM Hoider...17.50  — Pacertipw/Scel Pk RECO $295. 

Paper Cli 1 
KOALA. Home Pack Symphonic VHS/Remote 
Pad Disk... ... 39.95 pur Sagl € 105 Channel Cable Ready 
Pad ROM .....45.95 € 14 Day/ 1 Program Timer 

О 4495 € 12 Pre-set Channels ^ 
COMPUTERS Graphics Library.......1895 € Auto Rewind CHECK 
С-64.....149.950 ^^ "uy 229° Plus much, much тоге! OUR PRICES! 


Batteries Inc., Broderbund, Contineal, Hess, Infocom, 


pose, Microtek, O.S.S., Professional S.W. Scarborough, 


Мор Санса POLICY: No deposit оп COD FREE freight 
-1600..... .44.95 ОКТ : No deposit on orders. тет on 

E 54.95 ed SES Mitey Mo ...59.95 | all prepaid cash orders over $300 in the continental 

С-1660 5495 MPP-1064 ...65.95 Westridge...69.95 | USA APO and FPO add S5 per hundred. For priority 


Mail add 58 per hundred. PA Residents add 6% sales 


9:00 ат till 6:00 рт 
VISA and MC 


RS 


85.95 
75.95 


Microbits, Micro- 


Prior RA number. 
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Etch: А ВК Gra 


robably all of us have, at 

some time or another, 
layed with Ohio Arts 

“Etch-a-Sketch.” The Etch 
program described here allows you 
to create similar pictures on your 
Commodore monitor, but with sever- 
al additional features. And perhaps 
most important, it allows you to print 
the screen image on your printer. 
(The printing feature was written for 
a Gemini 10 or 10Х printer; use with 
other printers will require some mod- 
ification to the program.) 

Screen Dumping on the Commo- 
dore 64, in the June "85 Ahoy’, in- 
troduced the principles of screen and 
printer bit graphics, and demonstra- 
ted how to transform a screen bit map 
into one accessible by an 8-pin dot 
matrix printer. Readers interested in 
the details of bit map creation should 
consult that article. The present pro- 
gram uses similar machine code rou- 
tines for memory manipulations and 
printing. But the bulk of the program 
is written in BASIC and can be read- 
ily understood. 

To get the program running, here 
is what you need to do: 

1) Move the beginning of your 
BASIC program with the following 
instruction: POKE 44, 64 : POKE 
16384, 0 : NEW. 

2) Enter the program, instructions 
11190, as it appears on page 97. 

3) PEEK in 45 and 46 to deter- 
mine the location of the end of your 
program, then POKE in a value 210 
greater to accommodate the machine 
code. (See Part I last month.) 

4) RUN the program, and input the 
207 bytes of machine code listed at 
the end of the program. Do this slow- 
ly and carefully* 

5) Delete instruction 4. 


6) SAVE the program, then RUN it. 


*If you should ever want to list the 
machine code at the end of your pro- 
gram, use the following sequence: 


PART II 


phics Sketching Program 


Including Squares Game for the 64 


By Roger S. Macomber 
Professor of Chemistry 
University of Cincinnati 


4 OPEN 4,4,2 :CMD4 :J=0 

5 FOR I = 9 TO 206:PRINT P 
EEK(S1+I) ; :J=J+1 

6 IF J>15 THEN PRINT CHR$( 
10); :Ј=0 

7 NEXT:PRINT£4, :CLOSE4:STO 
Е 


We'll describe the game later, so 
answer "N" to the first query. You 
should see a white screen (blue bor- 
ders), and if you look very carefully 
at the upper left corner, you'll see one 
black dot indicating the position of 
your cursor. You can move this cur- 
sor up, down, right, or left using the 
normal cursor control keys. Notice 
ав you practice moving the cursor that 
it is prevented from going off the 
screen. If you press F (Fast) the cur- 
sor will move 5 times as fast; press- 
ing S (Slow) will restore the slower 
movement. 

Now, to draw a horizontal or verti- 
cal line, press D (Draw) and your 
cursor will leave a line behind it as 
it traverses the screen. (When using 
the Draw function you must contin- 
ue one dot past the end of the desired 
line, because the last dot is erased 
when the draw mode is disabled.) To 
disable the Draw function, hit D 
again. Note that if you engage D in 


Shown: a reduction of an actual dot 
matrix printout of a game of Squares. 


ODORE 64, 


the F mode, you will draw a dotted 
line, while in the S mode, a solid line 
results. If you make a mistake, you 
have two options. First, pressing E 
puts you in the Erase mode and the 
cursor will erase any dot it crosses. 
So by retracing the offending line 
you'll see it disappear. The Erase 
mode is disabled by pressing E again. 
Or second, by pressing f7, the entire 
screen is cleared to begin anew. 

One further feature of the program 
allows you to draw straight lines at 
any angle to the horizontal. To draw 
such a line, bring your cursor to one 
end of the desired line and press I 
(Initial), then move your cursor to the 
other end of the line (anywhere else 
on the screen except directly above. 
or below the initial point) and press 
D (Draw) L (Line). Immediately a 
line is drawn from the final point 
back to the initial point. Notice also 
that the D, E and L functions all op- 
erate in either the F or S mode. 

Finally, when you have created just 
the picture you want, you can print 
it (on a Gemini 10 or 10Х only!) by 
simply pressing fl. 


SQUARES GAME 

Let's return to the game as prom- 
ised. To do this, it will be necessary 
to hold down the RUN/STOP key and 
press RESTORE, then RUN the pro- 
gram again. This time answer "Y" to 
the prompt. The screen will fill with 
а 10 dot x 10 dot array, and the сш- 
sor dot will appear near the middle 
of the screen. By using your cursor 
controls and the Draw function, each 
player alternates and tries to complete 
squares in the usual way. When a 
square is completed, the player iden- 
tifies it with some number of dots in 
its middle. The player with the great- 
est number of squares wins. The 
printed result of one such game is 
shown here; the author lost! O 
SEE PROGRAM LISTING ON PAGE 97 
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Program Your Own EPROMS 
ЕСЕ” $99.50 


PLUGS INTO USER PORT. 
NOTHING ELSE NEEDED. 
EASY TO USE. VERSATILE. 


* Read or Program. One byte or 

32K bytes! 

OR Use like a disk drive. LOAD, 
SAVE, GET, INPUT, PRINT, CMD, 
OPEN, CLOSE—EPROM FILES! 

Our software lets you use familiar BASIC commands to 

create, modify, scratch files on readily available EPROM 
chips. Adds a new dimension to your computing capability. 

Works with most ML Monitors too. 

Make Auto-Start Cartridges of your programs. | 

The promenade™ C1 gives you 4 programming voltages, | 

2 EPROM supply voltages, 3 intelligent programming 

algorithms, 15 bit chip addressing, 3 LED's and NO 

Switches. Your computer controls everything from software! 

Textool socket. Anti-static aluminum housing. 

EPROMS, cartridge PC boards, etc. at extra charge. 

Some EPROM types you can use with the promenade" 

ES — vx E ЫБ 


26 КЕЗ 
ЗА 


Promenade 


promenade 


zu E 
пы ЕЗ 
то Ei 


5 
[7] 


In California: 800-421- 


JASON-RANHEIM 


580 Parrott St., San Jose, CA 95112 


800-421-7731 or 408-287-0259. | 
7748 z 
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The Intelligent alternative 
to overpriced 64” software 
The inteligent Software Package for C-84'*, МІС”, SX-64™, C-128™, 
LCD", Plus 4%, 16", B-128™. and РЕТ/СВМ” An integrated 
home/busness/educational package of 25 powerful, useful programs [tota 
ing over 51 pages of source code) that wil put your Commodore to work 
right now, in your home ог office; all on dsk or tape at the riciculous price 
of $35, or about $1.40/program, One customer writes: Тһе s as 
sick a deal as | have seen and more than adequate for all except fancy 
presentations. The best thing is the ease of use . . " The package includes: 
Database: A complete mut-keyed hred Aso есімі ReportGen, ReportMerge 
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<, AND, OR, NOT, wid card) on any field. 
perform computations on numer heids: 
‘Any operation can be performed on al, or 
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or as an electronc rolodex Even 4 you use 
your for nothing else, tns pro- 
(ram alone ment jusufy ts expense 
Word Processor: A ful-features menu 
drven ward processor neudng very fast 
fie cormvmands, screen esting. text locating 
and НЫ control over тогот, spacng. pag 
ing. indentation, and justification 
well done and highly func 


Intelligent Software 
Оману Software since 1982 


converts text Нез [program istngs] eto 


Labeler, File Copier. more 
Versions of the package are avotable for 
every Commodore computer havng в 
mnmum of 10k RAM; please specty 
reguar dsk. В050 dsk, or tape format 
189 олу for Pasa эга 16” ) А programe 
Support tape, disk, and preter, ресе a. 
chides documentation and shppng. Calf. 
resents add 6%. VsalMastercard, add 
S2. ro personal checks trom outside USA 
The ad e the catalog, asarping ot program. 
олрл. = пужае for 52 


Box А Dept. А-2 
San Anselmo, СА 94960 
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By Morton Kevelson 


Is there any way to suppress the six line perforation 
skip on the Okimate 10 printer? I have tried changing 
my printer and interface without any results. I can con- 
trol the problem with WordPro 3 Plus/64 by setting the 
page length to 60 for eleven inch paper. This cannot be 
done with my General Ledger Accounts program from 
Integrated Software Series (IDI). I have also tried every 
possible way to access the printer's other text modes from 
within WordPro, but nothing seems to work. 

— George Elder 
Cornelius, OR 
George, 

Hold everything. Stop changing hardware with your 
dealer. There is nothing wrong with your printer or its 
interface. The Okimate 10 powers up with the perfora- 
tion skip feature activated. This is described on page И 
of the manual. The manual does not explain how to turn 
this feature off or on. However, the appropriate command 
codes are listed in the Command Reference Chart loca- 
ted on the inside back cover. To turn off the automatic 
perforation skip for use with any of the programs you 
mentioned, simply execute the following commands prior 
to running the program: 


OPEN 4,4 


PRINT#4 , CHR$(27) CHR$(66) 
CLOSE4 


To turn the perforation skip back on, change the second 
line to: 


PRINT#4 , CHR$(27)CHR$(65) 


These commands can be issued in immediate mode as 
shown, or they can be SAVEd and RUN as a short pro- 
gram by including line numbers. 

The difficulty with accessing the Okimate 10 special 
features from within WordPro is not a problem with the 
Okimate 10 printer, but apparently a limitation of 
WordPro. Page 9-6 of the manual indicates that the abil- 
ity to send special characters in CBM mode is limited 
to a value of 254. In addition, according to the manual 
Jor the Тутас printer interface, WordPro disables the spe- 
cial character mode when the “С” option is selected in 
response to the “Printer?” prompt. As a result, we must 
conclude that you will not be able to access any of the 
special features through WordPro 3 Plus. 


I own an MX-80 Epson printer with an 8145 RS232 
interface card installed to an HP computer via RS232. 
I would now like to interface the same printer (without 

Continued оп page 14 
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ince I had not purchased a new car for several years, 
the celestial sticker prices came as a complete 
shock. The high monthly payments and steep in- 
terest rates were much more than I had anticipated. 

he salesman, noting my reaction, urged me to consider leas- 
ing. He argued that leasing was actually cheaper than buying. 
However, I wondered whether his claim was true. Would it 
be cheaper to lease a new car than buy it? 

I struggled with my hand calculator for several long hours 
before realizing that the problem was far too complex for a 
few simple calculations. Each auto had a different price and, 
consequently, a different monthly payment schedule. And there 
were so many lease plans available. Finally, 1 turned to my 
Commodore 64 to find a systematic and thorough way to make 
the desired comparisons. The result is this Leasing v. Buying 
program. Even if you're not in the market for a new car, you 
may find this program educational and interesting to run. 

The program produces tables showing the cost of owning 
a new car and the cost of leasing the same car. It tells you 
what information you need, makes the necessary calculations, 
and displays the results so you can decide whether it is better 
to lease or buy in your specific situation. The program can 
be run over and over so you can easily compare different 
makes, models, optional equipment configurations, and finan- 
cing arrangements with their respective lease plans. Although 
designed for screen display, the program can be modified easily 
to output to a printer if you wish to study the results. 


TYPES OF LEASES 

Despite the wide variety of names used, there are basically 
two types of leases available: closed-end and open- end. Under 
a closed-end lease, the monthly payments you make are for 
а specific period of time. When the lease period ends, you 
return the car and you have no additional financial obligation 
to the lessor. 

Under open-end leases, you agree to pay an additional 
amount if the value of the car at the end of the lease period 
is less than the amount estimated at the time the lease is signed. 
For example, suppose the lessor estimates that the car will be 
worth $3,850 at the end of the lease period. If its value at that 
time is only $3,300, you would have to pay the balance of $550. 
However, if it is worth more than 53,850, you should receive 
a refund. 

This program may be used for both types of leases. How- 
ever, most leases have a limit on the number of miles you are 
permitted to drive each year, usually around 15,000. If you ex- 
ceed this limit, you will have to pay an additional charge for 
the excess miles. The program assumes that you will stay with- 
in the miles limit. 


ENTERING THE INFORMATION 

After copying the program, type RUN and enter the infor- 
mation requested. Most of the requests are self-explanatory. 
However, a few words are necessary to insure accurate inputs. 
Naturally, the buying and lease information should be for the 
same make and model car in order to produce a meaningful 
comparison. 
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V. BUYING 
By Gil Ragan 


The purchase price is the first item requested. For this entry, 
use the actual price the dealer would be willing to accept, not 
the manufacturer's suggested retail price. When entering dollar 
figures, do not use $ or commas. Next you will be asked, 
WILL YOU NEED FINANCING? Type in a ‘Y’ if you expect 
to borrow part of the purchase money. An 'N' will cause the 
program to branch and skip the questions relating to loans, 

For the interest rate request, enter any fractional portion of 
the rate as a decimal. For example, 15% percent should be 
entered as 15.25. The length of the loan should be entered in 
months. A four-year loan, for example, should be entered sim- 
ply as 48 for 48 months. Inputting the length of the loan this 
way lets the program calculate your monthly loan payments 
and interest charges. These calculations are made in lines 1030 
and 1040. 

If you live in a state that imposes a sales tax on autos, enter 
your state's rate when requested. Don't forget to enter the per- 
centage rate in decimal form, The sales tax in dollars will be 
‘computed automatically. For the license fee request, enter your 
best estimate if you do not know the actual amount. 

You are next asked what type of car you are considering. 
The reason for this request is that cars depreciate in value at 
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different rates depending upon their types. Average depreciation 
rates for the three major types of cars are stored in the sub- 
routine in lines 2000-2220. The number you enter here will 
select the proper group of rates for the type of car you are 
considering. 

One ownership savings frequently overlooked stems from 
the federal income tax. Interest charges on loans and state sales 
taxes paid are deductible for tax purposes if you itemize your 
deductions as opposed to taking the standard deduction (now 
called zero bracket amount). If you itemize, answer У” to the 
question posed. This will be followed by a request for your 
percentage income tax bracket. You can find your income tax 
bracket by using the X, Y, Z Tables in the income tax booklet 
which is sent to you with your tax forms each year. 

The next section of the program will ask you to enter data 
about the lease you are considering. First, you will be asked 
to enter the amount of any refundable security deposit you are 
required to make. This will be followed by a request to enter 
the amount of the monthly lease payments. Include only the 
cost of the “pure” lease. If a service maintenance contract is 
included with your lease package, the cost of this contract 
should be subtracted to get the actual lease cost. 

Some leases require a non-refundable down payment or other 
charge at the beginning of the lease. If such a payment is re- 
quired, enter the amount as requested. 


THE RESULTS 

After all information has been entered, the program will first 
compute your net cost of buying and will display the results 
on the monitor, The display format will vary depending upon 
whether you pay cash or finance the purchase, and upon wheth- 
er you itemize deductions for income tax purposes or not. 
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If you do not need to finance your purchase, you will see 
an item called "Interest lost on purchase price.” This item refers 
to the interest your money could have earned at bank passbook 
rates had you not bought the car. The interest you give up by 
spending your funds is one of the hidden costs of ownership. 
Incidentally, if you have been earning a higher interest rate 
on your moncy, insert that rate in line 1015 in place of the 055. 

If you finance the purchase, you will see a similar item "In- 
terest lost on down payment" instead. The same reasoning ар- 
plies to this cost of ownership. The bank passbook rate is in 
line 1020, and a higher rate can be easily substituted. For fi- 
nanced purchases, an additional line called “Total Payments 
on Loan” will be displayed. This line shows the total interest 
charges and loan repayments on the portion of the loan used 
to purchase the car only. Additional money borrowed for things 
like the license is excluded to avoid double counting. 

Next you will see some deductions. The car you buy should 
have a value at the end of the loan or lease period. This residual 
value is an estimate of the amount you should be able to obtain 
by selling or trading the car at that time. Consequently, it must 
be deducted to obtain your net cost of buying. 

If you itemize your deductions for income tax purposes, the 
tax savings is computed and also deducted from the total cost 
of buying to give your net cost. 

The program will then compute the cost of leasing, Press 
“С to view the results. Again, note that interest lost on the 
security deposit and on the non-refundable down payment is 
computed and added to your cost of leasing. The security de- 
posit will be refunded to you at the end of the lease period, 
50 it is deducted to find your net cost of leasing. 

Note that items such as insurance, repairs, maintenance, gas, 
and oil have been omitted. Under the standard lease, you must 
pay for these items just as you would as an owner. These items, 
then, would be the same in both calculations. For this reason, 
they are ignored, and the program concentrates only on items 
likely to be different depending on whether you lease or buy. 


THE FINAL COMPARISON 

Press 'C' once more for a final display. First, you will see 
what your monthly loan payments will be. This is followed 
by the monthly lease payment which you entered. Don't be 
surprised to find that the monthly loan payments are higher 
than the lease payments, Such a situation will happen particu- 
larly if you are making a rather low down payment. This is 
what the salesmen mean when they imply that leasing is cheap- 
ег than buying. 

The key comparison is found in the next two lines. They 
show your net cost of buying and your net cost of leasing. The 
final line of the program will tell you whether it is cheaper 
to lease or buy based upon the information you entered. 


PRINTER MODIFICATIONS 

One final note. If you wish to modify this program to out- 
put to a printer, delete lines 520 and 540. These lines merely 
introduce stops in the screen display. Then, for а УІС-1525 
printer, add the following: 


490 OPEN 2,4 
500 CMD 2 
750 PRINT#2: CLOSE 2 


If you have a different printer, consult your manual for the 
appropriate OPEN, PRINT, and CLOSE statements. О 
SEE PROGRAM LISTING ON PAGE 100 


СОММОООВІ- 


POSTS 


WRITING & RUNNING AN 
ASSEMBLY LANGUAGE PROGRAM 


By Mark Andrews 


Тг “аг ring a program in assembly language re- 
quires a software package called an as- 
sembler-editor, or simply an assembler. 
— V V  |Three of the most popular assemblers for 
the Commodore 64 are: 

* The Commodore 64 Macro Assembler Development 
System, manufactured by Commodore. 

* The Merlin 64 assembler, manufactured by Roger 
Wagner Publishing, Inc. (formerly Southwestern Data 
Systems) of Santee, CA. 

* The Panther C-64 assembler, manufactured by Pan- 
ther Computer Corporation of Los Angeles. 

It wouldn't be fair to rate these in 1-2-3 order, since 
each has its advantages and disadvantages. But to help 
you decide which youd like to use, here are brief de- 
scriptions of each: 


THE COMMODORE 64 ASSEMBLER 

An excellent package, designed by professionals for 
professionals, the Commodore 64 Macro Assembler De- 
velopment System (the Commodore 64 Assembler for 
short) works much like the large assemblers used with 
mainframes. Unfortunately, though, it isn't what Га call 
елу; in fact, it can be downright user-hostile, 
especially for people who are just starting to study assem- 
bly language. 

The Commodore 64 Assembler comes on a single 5'4- 
inch disk. But there are several programs on that disk, 
and each time you write and assemble a program, you 
have to load and run several individual utilities —in the 
correct order. If you use the programs in the wrong se- 
quence, or make a mistake in using one program before 
you load the next one, you sometimes have to start the 
process all over again. That can be both annoying and 
time-consuming. 


THE MERLIN 64 

The Merlin 64 is an imaginatively designed assembler 
with a host of advanced features some not available in 
any other C-64-compatible assembler system. For exam- 
ple, Merlin comes with a very sophisticated disassembler 
(a utility that can convert machine language into assem- 
bly language). Another bonus is a large library of use- 
ful assembly language routines that can be incorporated 


into user-written programs. 

Merlin is equipped to handle macros — prewritten rou- 
tines that can be easily inserted into assembly language 
programs —and has linking capabilities that enable the 
user to write programs ordinarily too long to fit into a 
Commodore 64s memory. And Merlin can be used in 
an 80-column format on a computer equipped with a 
high-resolution monitor and an 80-column card. 


THE PANTHER C-64 ASSEMBLER 

The Panther C-64 Assembler is even easier to use than 
Merlin —so it's a popular package, especially among new- 
er assembly language programmers. But it lacks some 
features that have become almost standard in assemblers 
— тасго capabilities, for example —and for some reason, 
the displays and the programs listings it creates are al- 
ways printed in lower-case letters, a feature I find an- 
noying. Furthermore, the Panther consumes more mem- 
ory space than either the Commodore 64 Assembler or 
Merlin 64, and some of the memory space the assem- 
bler eats up is in blocks of RAM which I feel should 
be left free for user-written programs. 

On the positive side, the Panther is a joy to use; every- 
thing that it can do is directly accessible from the editor 
(a costly feature in terms of memory), and its assembly 
language editor has a beautifully engineered error-check- 
ing system that makes it almost impossible to write a bad 
line of code. And the instruction manual that comes with 
the program is very good; in fact, if I didn't own a Pan- 
ther assembler, I might be tempted to buy one just to 
get my hands on the tutorials in its manual. 


GOLDILOCKS & THE 3 ASSEMBLERS 
When I started writing this series of columns, it was 
difficult to decide whether to use the Commodore 64 As- 
sembler, Merlin or the Panther C-64. So I picked one 
by the Goldilocks method. After much experimentation, 
I concluded that the Commodore 64 Assembler was too 
big, the Panther was too little, and the Merlin 64 was 
just about right. So most of the programs you'll see in 
this column were created with Merlin. If you own some 
other kind of assembler, that's okay; with minor modifi- 
cations, the programs in these columns will work with 
any assembler compatible with the Commodore 64. But 
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for consistency, they'll all be written on a Merlin—and 
the column you're reading now, a tutorial on assemblers, 
will focus on the Merlin 64. 

And that brings us to our real topic: how to use an 
assembler (such as the Merlin) to write a Commodore 
64 assembly language program. 


USING THE MERLIN 64 

Merlin 64 can be loaded and executed like any other 
disk-based program. When you've successfully booted 
Мейту master disk, this menu will be displayed on your 
monitor screen: 


: Catalog 

: Load source 

: Save source 

: Read text file 

: Write text file 

: Drive change 

; Enter ED/ASM 
1 Save object code 
: Run program 

: Disk command 


: Quit 


Ooxaomusexzurn 


The choices on this menu can be used to instruct Merlin 
to do quite a few things—from loading and saving as- 
sembly language programs (choices “L” and “87) to list- 
ing the names of the files a disk (“С”) to running a ma- 
chine language program (^G"). You can even format disks, 
scratch files from disks, and perform numerous other 
disk-management functions by choosing 

To write an assembly language program, you have to 
pick menu choice "E". That will that Merlin out of its 
"executive" (menu) mode and put it into its editor-assem- 
bler mode, which can be used for both writing and as- 
sembling assembly language programs. 

When you've made menu choice “Е” and put Merlin 
into editor-assembler mode, the menu on your screen will 
disappear, and you'll see a “:” prompt at the top of your 
screen. After that prompt, type 


A 


— Юг “append” Merlin will display the number “I” on your 
screen. That “I” is an automatically generated line num- 
ber, and as soon as it appears, you can start typing an 
assembly language program. 

Let's pause for a word about line numbers. One Merlin 
feature that takes some getting used to is its automati- 
cally generating line numbers, beginning with number 
1 and progressing in increments of 1. So you never have 
to type a line number when you're using the program. 
And when you add or delete lines, all affected line num- 
bers will change automatically. 

When Merlin generates and displays a line number, 
the number is always followed by a space and a flashing 


cursor. If you have Merlin up and running now, and if 
that's what you see on your screen, type an asterisk —мий- 
out any additional spaces in front of it. Line 1 of your 
program should then look like this: 


Tow 


Merlin will then advance automatically to Line No. 
2. Following the numeral 2, again without any extra spac- 
ing, type 


** ADDNRS 
—and hit your RETURN key. Then, when Merlin advan- 


ces to Line 3, type another asterisk. 
This is what you should see on your screen now: 


ADDNRS 


нон 
* ok xe 


In a moment, we'll discuss what those lines mean. 
First, though, let's get a little more familiar with Merlin. 

At Line 4, press your carriage return, and you'll see 
Merlin's 97 prompt again. Then you can type "A" (for 
ADD) again, and continue writing your program. Or if 
you prefer, you can type some other command: “1” for 
list, for example. This will list your program, in its en- 
lirety, on your screen. 

Another command that can follow the “:” prompt is 
“D” for DELETE. You would type the letter “D” followed 
by the number of the line (or lines) you want to delete. 
Suppose you wanted to delete Lines 2 and 3 in the above 
listing. You would simply type 


02,3 


after the “:” prompt. Try it! Then restore the lines you've 
deleted by using the “А” command. 

Still another command that can be used after the ":" 
prompt is "I" (for INSERT). Type the letter "I" followed 
by the number of the line where you want your new line 
inserted. Suppose you wanted to insert another asterisk 
at Line 2 in the above program. You could simply hit 
your RETURN Кеу to get a colon prompt, then type 


12 
Try that, and you'll see Merlin respond with the number 
2 


Now type an asterisk, followed by two carriage returns. 
Merlin will display its “:” prompt again, and you can then 
type “17 for list. Then Merlin will list your program, and 
you'll see that another line containing an asterisk has іп- 
deed been inserted into your program, at Line 2. 


http: 


Speaking of lines, you can now delete that extra aster- 
isk you've just added to your program. Hit a carriage re- 
turn to get a colon prompt and type “D2.” Then you сап 
type 17 for LIST, and you'll get a listing showing you 
that your program looks like this again: 


ADDNRS 


PUNE 
*od* 


That looks okay, so now you can continue typing until 
you've entered the following program into your computer: 


1* 
2 * ADDNRS 

3 * 

4 ORG 58000 
5 ADDNRS CLD 

6 ас 

7. LDA #2 

8 ADC #2 

9 5ТА $02А7 
10 RTS 

TT 


LISTING YOUR PROGRAM 

When you've reached Line 12 in your ADDNRS pro- 
gram, hit your RETURN key. Then you can type either 
L or LIST, and the complete program will be listed on 
your screen. Then you can examine the program line by 
line. 

Lines 1 through 3 of the ADDNRS program are com- 
ments. Line 2 explains what the program does, and lines 
Гапа 3 set off the explanatory line by printing asterisks 
followed by white space. 

Line 4 is the origin line of the ADDNRS program. 
Every program written on Merlin 64 must start with an 
origin line. When a computer runs a machine language 
program, the first thing it does is go to a predetermined 
memory location and look at the value stored at that ad- 
dress. So when you write an assembly language program, 
the first thing уои have to do is tell your computer where 
to start looking for the program in its memory. 

The origin directive looks like a simple line to write; 
but deciding where to start a program can be a difficult 
task. There are many blocks of memory in your computer 
that you can't use for assembly language programs be- 
cause they're reserved for other uses—for example, to 
hold your computer's operating system, disk operating 
system and BASIC interpreter. The best way to learn your 
way around your Commodore's memory banks is to con- 
sult a lot of memory maps and write a lot of assembly 
language programs. But in the early stages, it will usu- 
ally be safe to start your programs somewhere around 
memory location $8000 (or 32768 in decimal notation). 

Line 5 of the ADDNRS program contains the label 
ADDNRS and the assembly language instruction CLD. 
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Labels always occupy the first field (the column that 
follows the line-number column) in an assembly language 
programs. And labels are very important in Commodore 
64 assembly language programs, since labels, not line 
numbers, are used to access routines. 

The abbreviation CLD in Line 5 
assembly language instruction. Mnemonics always occu- 
py the second field (after the line number) in assembly 
language programs. The mnemonic CLD, which means 
“clear decimal mode,” is often used prior to arithmetical 
operations in Commodore 64 assembly language. Inside 
your computer's 6510 microprocessor, a status flag called 
the decimal flag can be cleared with the instruction CLD. 
When the decimal flag is cleared, the Commodore 645 
6510 chip carries out all arithmetical operations using 
binary numbers. If the al flag is not cleared prior 
to an arithmetical operation, the operation is carried out 
using binary-coded decimal (BCD) numbers, a subject 
that will be discussed in later columns. 

In Line 6 of the ADDNRS program, the mnemonic 
CLC is used to clear another 6510 flag, called the carry 
flag. This flag, as explained last month, is affected by 
so many kinds of operations that it's good programming 
practice to clear it before every addition operation —and 
10 set it before every subtraction operation, so that it can 
be used as a borrow. 

Line 7 of the ADDNRS program ^LDA 42'-is a very 
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straightforward instruction. When two numbers are to 
be added in an assembly language program, one must 
be loaded into a special 6510 register called the accum- 
ulator. Then the second must be added to the number 
that has just been placed in the accumulator. The sum 
of the two numbers is then left in the accumulator. 

In Line 7 of the ADDNRS program, the instruction 
LDA #2 is used to load the literal number 2 in the accum- 
ulator. The “#” sign in front of the number 2 means that 
it’s a literal number, not an address. If the instruction 
in Line 7 were “LDA 2/ the accumulator would be loaded 
with the contents of Memory Address 0002, not the num- 
ber 2. 

Line 8-“АПС 42'- adds the literal number 2 to the 
number in the accumulator (in this case, another 2). As 
mentioned, there is no 6510 assembly language instruc- 
tion that means “add without carry.” So the only way an 
addition operation can be performed without a carry is 
to clear the status register’s carry flag and perform an 
“add with carry” operation. 

Line 9 —STA 502А7"-сотріе(ев the addition opera- 
tion in the ADDNRS program. This statement stores the 
contents of the accumulator in Memory Address $02A7 
(usually a safe spot for storing data). Note that the sym- 
bol "f" is not used before the operand ($02A7), since 
in this case the operand is a memory address, not a lit- 
eral number. 

The mnemonic RTS, in Line 10 of the ADDNRS pro- 
gram, means “Return from Subroutine.” The instruction 
RTS has two main uses in assembly language. When used 
at the end of a subroutine, it works like the RETURN 
instruction in BASIC; it ends the subroutine and returns 
to the main body of a program, beginning at the line fol- 
lowing the line in which the RTS instruction appears. 
But if used at the end of the main body of a program— 
as it is here—it ends the program. Usually, control of 
the computer then returns to whatever was in control be- 
fore the program began—usually the Commodore 645 
built-in BASIC interpreter. 


ASSEMBLING AND SAVING 
YOUR PROGRAM 

То assemble the ADDNRS program using Merlin, all 
that is necessary is to type the command ASM follow- 
ing the “:” prompt. Merlin will then ask you if you want 
to update your source-code file—with the current date, 
for example. If you don't want to do that, you can type 
“N” (for “no”) and Merlin will assemble your source-code 
program —very rapidly! 

After youu've assembled a source-code listing into ob- 
ject code, you can save both your source-code and ob- 
ject-code listings to disk. Here's how: 

First type “О” (for QUIT) after the “:” prompt to get 
your assembler back into its "executive" (menu) mode. 


Merlir's main menu will then reappear. You can then save 
your source code by selecting menu choice “5 and your 
object code by picking menu choice “O” 

After you type “S” or “OP Merlin will ask you what 
you'd like to name your program. You don't have to add 
a suffix to indicate whether it’s a source-code listing or 
an object code program; Merlin will automatically add 
an “S” to the name of a source code listing, or “О” to 
the name of an object code listing. 


RUNNING AN ASSEMBLY 
LANGUAGE PROGRAM 

Once an assembly language program has been assem- 
bled into machine language, it can be executed without 
an assembler. When you have ADDNRS program assem- 
bled and safely stored on a disk, you can turn your com- 
puter off, turn it on again, and type the command 


LOAD "ADDNRS.0",8,1 


(As you may know, the number “1” at the end of a 
"LOAD" command informs your computer that the pro- 
gram being loaded is in machine language, and must 
therefore be loaded starting at the address that was des- 
ignated in the program's ORG line.) 

When the ADDNRSO program has been loaded into 
memory, you can run it by typing the command 


SYS 32768 


That line will instruct your computer to run the pro- 
gram that now begins at Memory Address 32768 ($8000 
in hexadecimal notation). And, since the ADDNRS.O 
program has just been loaded into memory starting at 
that address, the program that will now be executed is 
the ADDNRS program. 


AND NOW FOR SOMETHING 
COMPLETELY DIFFERENT 

Unfortunately, the ADDNRS program doesn't appear 
to do much when it is loaded into memory and execu- 
ted. All it does is add a couple of numbers and place 
their sum into a certain memory location; and that isn't 
very exciting, since no keyboard inputs are requested, 
and nothing is displayed on your computer screen. 

So, in the listing on page 96, I've provided something 
to tide you over until next month's column. It's consid- 
erably more interesting than the ADDNRS program, and 
it will give you some practice in typing, assembling, sav- 
ing and running assembly language programs. Type the 
Flash program on page 96, assemble it, and save it on 
а disk. Then run it, and watch the action. We'll discuss 
how it works in next month's column. [1 

SEE PROGRAM LISTING ON PAGE 96 


Next month: Addressing the Commodore, Part I—the first of two columns that will explain the 13 addressing 
modes used in Commodore 64 assembly language programming, including several short illustrative programs. 
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ROGRAMMING | CHAILLIENCIES 


By Dale Rupert 


ach month, well present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 


Commodares clo Ahoy! 
PO. Box 723 


Bethel, CT 06801 


We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the name and number of the problems 
you are solving. Also show sample runs if possible, where 
appropriate. Programs on diskette are welcome, but they 
must be accompanied by listings. Also tell what makes 
your solutions unique or interesting, if they are. You must 
enclose a stamped, self-addressed envelope if you want 
any of your materials returned. 

Your original programming problems, suggestions and 
ideas are equally welcome! The best ones will become 
Commodares. 


Problem #19-1: Binary Palindrome 

Write a program to determine whether the binary 
equivalent of any input decimal number between 0 and 
255 is a palindrome or not. Just one catch. Your pro- 
gram must not calculate the binary equivalent of the given 
number. (The eight-bit binary number must read the same 
forward or backward to be a palindrome.) 


Problem #19-2: Memory Locator 
This program does nothing more than tell where it is 
located in memory with an output such as this: 


Program Text : AAA — BBB 
Numeric Variables : CCC — DDD 
Arrays : ЕЕЕ — ЕРЕ 

String Storage : GGG — HHH 


where for example AAA and BBB are the starting and 
ending memory addresses of the program's text. 

This is an easy problem if you know how to do it. Then 
again, arent they all? 


Problem #19-3: Orthogonal Time 

At 3 oclock and 9 oclock the hands of the clock form 
a ninety degree angle. At what other times do the hands 
form a right angle? 
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If you are tempted to say 12:15, consider the fact that 
the hour hand has moved by the time the minute hand 
gets to the three. Your program should list all the times 
to the nearest second at which the hands of a clock are 
ninety degrees apart. If you submit your program, also 
send the answers it gives. 


Problem #19-4: Screen Scramble 

Jesus Geliga-Torres (Aguadilla, PR) suggested the fol- 
lowing Commodare. Write a program which takes what- 
ever is on the screen and rewrites it in a top to bottom, 
right to left fashion. The top row of the screen becomes 
the right hand column. Whatever was in the upper left 
corner is now in the upper right corner. The contents 
of the lower left corner will now be in the upper left cor- 
ner. This should work for any text or text-mode graph- 
ics on the screen. !nuf ekil sdnuoS 


First we will discuss a solution to last month's Problem 
#18-1: Cycling Function from Jim Speers (Niles, МІ), then 
we will look at other readers' solutions to Commodares 
from the March issue of Ahoy! 

Jim's solution to the problem he submitted is as follows: 


10 DEF FNC(D)=D - 2*5*(X-0) + 2*5*(X=100 
) 


When this statement is combined with the statements giv- 
en last month 


20 D-5 : 
30 PRINT X : X=X+D : D-FNC(D) : GOTO 30 
the output cycles back and forth from 0 to 100 in steps 
of five. Line 10 is written so that you may replace the 
fives with any other step size you desire. Line 20 should 
be modified accordingly. Also you must be sure that the 
test values in line 10 (0 and 100) are reached exactly. If 
not, the output doesn't cycle. You might change the “=” 
to “< =” and “> =” if you are sure whether the end- 
points will be reached exactly. 

Here are two more general cycling functions which Jim. 
suggested: 


10 FNU(V) 
) 


= V - S¥(V<MX) + (MX-MN)*(V=MX 
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15 FND(W) = W + S*(W»MN) - (MX-MN)*(W=MN 
2 


MN, МХ, and S are the minimum value, maximum val- 
ue, and step size. FNU repeatedly cycles up from the 
minimum to the maximum value and then drops back 
to the minimum value to start over. FND does just the 
opposite. Add line 5 and change lines 20 and 30 as follows 
to see how these functions work: 


5 MN=45 : МХ=99 : 5-3 
20 Х=ММ : Y-MX 


30 PRINT X,Y : X=FNU(X) : Y=FND(Y) : GO 
TO 30 


Again, the endpoints must be reached exactly with the 
chosen step size. 

Problem #15-!: Fancy Functions brought many re- 
sponses. Readers used two significantly different meth- 
ods to check for the “evenness” of a number as typified 
by these function definitions: 


FNA(X) = -(X/2 = INT(X/2)) 


FNA(X) = 1 - (X AND 1) 


The first uses a logical expression having a value —1 when 
true and 0 when false. The minus sign in front produces 
the desired result that FNA(X) equals 1 when X is even 
and 0 when X is odd. The second uses a Boolean expres- 
sion which depends on the fact that the least significant 
bit in the binary representation of an even number is 0 
and of an odd number is 1. (X AND 1) equals | for odd 
values of X and 0 for even values of X. Refer to the Com- 
modore 64 Programmer's Reference Guide for a discus- 
sion of the AND operator. 

A solution to the equilateral triangle area function is 


FNB(X) = X*X*SQR(3)/4 


or some variation on this theme. 

There was not much need for originality for the random 
number generator function. Most solutions looked es- 
sentially like this: 


FNC(X) = INT(X*RND(1)+1) 

where FNC has a random integer value from 1 to X inclu- 
he fourth function as defined by most readers was 
of the form 

FND(X) = INT(N*10^X + .5)/10^Х 


This rounds the number М properly to X decimal places, 
but only if X is positive. A more general solution һап- 
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dles negative numbers as well: 
FND(X) = SGN(X)*INT(ABS(N)k10^X4.5)/10^X 


Glenn D. Elliot (Rutherford, NJ) used string functions 
to arrive at his solution: 


FND(X) = VAL(LEFT$(STR$(N+5/10*(X+1)) ,LE 
N(STR$(INT(N)))+X+1)) 


Unfortunately, this doesn't work properly for values of 
N less than 1. Can someone fix it up? How about a func- 
tion that returns a value with X significant figures? For 
example, if N=1.254 and X=2, the result is 1.3, or if 
N=1254 and X=2, the result is 1300 or 1.3E3. Anyone 
up for the challenge? The string approach might be the 
way to go. 

Several readers overlooked the requirement for Prob- 
lem #15-2: Prime Factors that the solution contain only 
one statement per line. It is surprising how the inability 
to put more than one statement per line can complicate 
a program, especially with IF-THEN statements. The so- 
lution from John Prager (Bay City, MI) printed below 
is representative of most of the other proper solutions. 


10 REM SOLUTION TO PROBLEM #15-2 : 


20 REM PRIME FACTORS 
30 REM BY JOHN PRAGER 
100 INPUT М 

110 FOR F-2 TO SQR(N)4.9 
120 IF INT(N/F)-N/F THEN 150 
130 NEXT F 

140 F-N 

150 IF A THEN PRINT"*"; 
160 PRINT F; 

170 А=-1 

180 N=N/F 

190 IF N»1 THEN 110 


John used the fact that you don't have to check for any 
factors larger than the square root of the given number. 
Any non-prime non-square number can be factored into 
factors, one of which is larger and the other of which 
is smaller than the square root of the number. Once you've 
found the smaller factor, division gives the larger. One 
мау to speed this program up is to check only for odd 
factors once all factors of two have been divided up. The 
solution from Dana Rousseau (Memphis, TN) below 
takes that approach. 


1 REM SOLUTION TO PROBLEM %15-2 
2 REM PRIME FACTORS 

3 REM BY DANA ROUSSEAU 

4 REM (( SIMON'S BASIC )) 

10 INPUT N 

20 К=2 

30 L=N-K*INT(N/K) 

40 IF 1=0 THEN PRINT К;"*"; 
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HARIK 


A Real Estote Trading Game for ће 
Commodore 64® 


If you 
enjoy 
playing 


MONOPOLY, 


you'll ЕШІІН 
love 


SHARK ! 


It's Fun For the Whole Family! 


Now you and your friends can enjoy a fast paced game of $HARK while all banking 
transactions, collecting of rents, managing properties and other time consuming duries 
are handled auromaticall 

А i Kr With SHARK, you con: 


Buy and mortgage property 

Build and tear down houses 

List your cash, property and ner worth 

Make DEALS and TRADES with other players 
оно AVENUE { ] Include or void different game options 
pace suo aue seo |i | Have up ro 6 people play at one time 
EACH MOUSE COST $71 
RENT $12 

Screen Smuonon: 


мивн TO BUY? 
ыы 


- SHARK 


SAGE SOFTWARE A Real Estate Trading Game 


РО. Box 2578-Ғ xs cer 
Freeport, Tx 77541-2578 І YES. please send me SHARK SAGESORWARE 722679 
ж РО бох2578+ 
І Disk(s) @ $25 (05.) eoch Freeport. TX 77541-2578 


Our Guarantee: If you are nor І 
satisfied with your disk, please | 
return to Sage Software for a 
free replacement 


Sage Sofware promises prompt delivery! 


Reader Service No. 118 


50 
60 
70 
80 


ТЕ 1=0 THEN N=N/K 

IF K*L>2 THEN K=K+2: ELSE :K=K+L 
IF K*K<=N THEN 30 

PRINT N 


Dana used Simons' BASIC, which allows the IF-THEN- 
ELSE statement. You can delete the ELSE part of line 
60 and add line 65 IF K*L < 22 THEN K=K+L if you 
don't use Simons' BASIC. According to Dana, line 60 (i) 
does not increment K if K divides N (so it can be tried 
again), (1i) increments by 1 if K=2 and М is odd, and 
(iii) increments by 2 if K>2 and К does not divide М. 

Jim Speers (Niles, MI) said that his solution found the 
prime number 999,999,937 (the largest prime number 
with fewer than ten digits) in just under 38 minutes. How 
do your times compare? 

Congratulations to Brad Cameron (Metcalfe, ONT), 
Daniel Knight (Grand Rapids, МІ), David Alan Wright 
(New Britain, CT), Fred Atiyeh (Livonia, MI) and James 
Borden (Carlisle, PA) for their solutions to this problem. 
two types of solutions to Problem #15-3: 
Separated Sentence, those that are printable on a printer 
and those that aren't. Those that aren't printable use the 
[ОР] and [DOWN] statements to move the cursor be- 
tween characters. A printer is a sequential access device 
whereas the screen (or a plotter) is random access. A 
one-liner from Tom Nielsen (Bismarck, ND) is listed be- 
low, It is for a random access output. 


1 REM SOLUTION TO PROBLEM #15-3 : 


2 REM SEPARATED SENTENCE 
3 REM BY TOM NIELSEN 
4 REM 


10 INPUTB$:FORI=1TOLEN(B$)STEP2:PRINTMID 
$(B$,1,1)""MID$(B$,I+1,1)""; :NEXT: PRINT" 
" 


Of the solutions which аге hard-copy printable, some 
stepped through the input string twice, printing every 
other letter on one line, then dropping to the next line 
1o print the rest. An example of this method is the pro- 
gram listed here from Marcus F. Cooper (Mililani, HI). 


1 REM SOLUTION TO PROBLEM #15-3 : 


2 REM SEPARATED SENTENCE 
3 REM BY MARCUS F. COOPER, JR. 
4 REM 


10 INPUTS$:FORU=1TOLEN(S$)STEP2:PRINTMID 
$(S$,U,1)+" ";:NEXT 

20 PRINT:FORL-2TOLEN(S$)STEP2:PRINT" "4M 
ID$(S$,L,1); :NEXT 


Other readers created separate strings and printed them 
individually, as shown by this solution from Larry Е. 
Cox (Tecumseh, MI). 


1 REM SOLUTION TO PROBLEM 715-3 : 
2 REM SEPARATED SENTENCE 
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BY LARRY E. COX 


10 INPUT"SENTENCE" ; A$ 

20 FORX=1TOLEN(A$)STEP2:Y=X+1 

30 BS=BS$+MID$(A$,X,1)+CHR$(32) :C$=C$+CHR 
$(32)+MID$(A$,Y,1):NEXT 

40 PRINTB$:PRINTC$ 


Daniel Knight (Grand Rapids, MI) suggested that you 
might encode a message with dummy letters this way, 
then write a program to decode it. The third type of so- 
lution above is probably the most useful if you want to 
utilize this concept in cryptography. 

Problem #15-4: String Stretcher was meant to revive 
a classic geometry problem. Even after seeing a proof 
of the solution, it is still a bit difficult to believe the re- 
sults. If the string is one yard longer than the circumfer- 
ence of a planet (any planet), the string could be placed 
around the planet at a uniform height of 1/(2*PI) yards 
above its surface. 

To see this, let Cl be the circumference of the planet. 
The length of the string is then Cl plus one yard. The 
radius of the planet is Cl/(2*PI) and the radius of the 
string is (C1+1)/(2*PI). Some algebraic manipulations 
show that the difference in the two radii is simply 1/(2*PI), 
independent of СІ. Therefore the string will be approxi- 
mately six inches (0.16 yards) above the surface regard- 
less of the size of the planet. 

A few readers resorted to some craftiness by putting 
delay loops into their solutions so it looked like the com- 
puter really had to “think” about the solution before print- 
ing it. Of the readers who commented, all said they en- 
joyed this bit of trickery. Your comments as to whether 
or not you like a particular type of problem are always 
welcome. 

Solutions for March Commodares and various other 
problems and letters were received from the following 
people not mentioned above: 


Scott Kruger (Rockford, П.) James М. Martin (Keesler AFB, MS) 
Топу Ruperto (Kitimat, BC) Richard Cannon (Cambridge, ONT) 
Stan Beddingfield (Dover, DE) William Ingram (Cambridge, ONT) 
Rick Acosta (Somerville, NJ) Trevor Green (Campsie NSW, Australia) 
Don Allen (Necedah, Wi Glen Oidford (St. John's, NFLD) 

Jason Simpson (Victoria, BC) Eric Berns (Grande Prairie, ALB) 

Russ Beinder (Victoria, BC) 

Keith Rasmussen (Blaine, MN) 
Paul Hawthorne (Wilburton, OK) 
Peter Lam (Langenburg, SK) 

R. Dorn (Saratoga, МҮ) 

‘Tom MeNeill (Baltimore, MD) 
Frank Gourley (Kenessw, NE) 
Brad Cameron (Metcalfe. ONT) 
Kenneth Karow (Chicago, IL) 
Steve Feld (New York, NY) 
‘Veronica Robin (Niles, ОН) 


As usual, solutions received by the middle of the month 
of the magazine's cover date are most likely to be listed 
and discussed, but you may send your solutions any time. 
I will respond to your questions or comments only if you 
enclose a self-addressed stamped envelope. You have 
some serious work ahead of you with this month's chal- 
lenges, so you'd better get busy! O 


Mike Livermore (Kansas City, KS) 
James Dunavant (Gainesville, FL) 
Vadim Israilevich (М. Hollywood, CA) 
Margaret Wylde (New Bloomfield, МО) 
‘Walter Robinson (Bonner Springs, KS) 
John Northover (San Diego, СА) 

Cathy Levandofsky (Bainbridge, OH) 
Carl Lancaster (Oxon Hill, MD) 

L.M. Davis (Bainbridge, ОН) 

‘Stanley Davis (Decatur, GA) 

Paul Lalli (McAlester, OK) 


PROGRAM LISTINGS 


Attention new Ahoy! readers! You must read the following information very 
carefully prior to typing in programs listed in Ahoy! Certain Commodore 
characters, commands, and strings of characters and commands will appear in 
a special format. Follow the instructions and listing guide on this page. 


n the following pages you'll find several pro- 
grams that you can enter on your Commo- 
dore computer. But before doing so, read this 
entire page carefully. 

To insure clear reproductions, Ahoy!s program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Com- 
modore programs. These are therefore represented by 
various codes enclosed in brackets | |. For example: the 
SHIFT CLR/HOME command is represented onscreen 
by a heart Ej . The code we use in our listings is 
[CLEAR]. The chart below lists all such codes which 
you'll encounter in our listings, except for one other spe- 
cial case. 

The other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two sym- 
bols. The symbol on the left is obtained by pressing that 
key while holding down the COMMODORE key; the 
symbol on the right, by pressing that key while holding 
down the SHIFT key. COMMODORE and SHIFT char- 
acters are represented in our listings by a lower-case "s 
or “с” followed by the symbol of the key you must hit. 
COMMODORE J, for example, is represented by [c J], 


When 
Yu See M Meany You Type wit 
[CLEAR] Seren Char SHIFT. CLRHOME 
HOME] Home CLRIHOME 
UP] Curvor Up SHIFT # CRSRE 
[DOWN] Conor Down RSR Y 
[LEFT] Curr Left SHIFT =CRSR= 
RIGHT] Conor Right сюк 
55] Пей Space SHIFT Space 
INSERT] Invert SHIFT INST DEL 
DEL] Delete INSUDEI 
RVSON] Reverse On ENTRI. 9 
[RVSOFF] Revene Off суга. o 
[UPARROW] tp Armm + 
BACKARROW] Back Arrow - 
РТ] PI т 
ЕР] English Pound £ 
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and SHIFT J by [s J]. 
Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 “[LEFT]"] would be 3 CuRSoR left com- 
mands in a row, [5 “|в EP]"] would be 5 SHIFTed En- 
glish Pounds, and so on. Multiple blank spaces will be 
noted in similar fashion: e.g., 22 spaces as [22 * "]. 

Sometimes you'll find a program line that’s too long 
for the computer to accept (C-64 lines are a maximum 
of 80 characters, or 2 screen lines long; VIC 20 lines, 
a maximum of 88 characters, or 4 screen lines). To en- 
ter these lines, refer to the BASIC Command Abbrevia- 
tions Appendix in your User Manual. 

On the next page you'll find our Bug Repellent pro- 
grams for the VIC 20 and C-64. The version appropri- 
ate for your machine will help you proofread our pro- 
grams after you type them. (Please note: the Bug Repel- 
lent line codes that follow each program line, in the 
whited-out area, should nor be typed in. See the instruc- 
lions preceding each program.) 

Also on the following page you will find Flankspeed, 
our ML entry program, and instructions on its use. O 

Call Алоу! at 212-239-0855 with any problems. 


You When wu 
See Yu See и Means You Туре Will See 
E BLACK] Black сәні oi 
Bb (иніте) White enu М 

Eb [RED] Red CNTRL 3 
m [CYAN] Cyan ore. a № 

и PURPLE] Purple СУТКІ. 5 
Ш [GREEN] Green cmo EH 
Ш (ве) Blue om. 7 B 
[YELLOW] Yeon om. М 
и Е1] Fund п E 
B [rj Function 2 ser on | 
Ш [rj Function 3 » B 
* F4] Function 4 s в № 
= [Fs] Function 5 в | 
# [r6] Function 6 sur rs | 
£ F7] Function 7 т Ш 
F8] Function 8 sc № 
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IMPORTANT! | 125955 she backoround are Bug Repellent line codes. Do not enter them! This and the preceding explain these 
codes and provide other essential information on entering Ahoy! programs. Read these pages before entering programs 


BUG REPELLENT сау оссиг. LIST cach line, spot the errors, and correct 


IIR Ee -5000 FORX-49152T049488: READY: РОКЕХ, Y NEXT: END GJ 
structions for VIC 20 (eassette or disk) or C-64. +5001 DATA32,161,192,165,43,133,251,165,44,133 DL 
VIC 20 VERSION +5002 DATA252, 16,0,132, 254,32,37,193,234,177 DB 

; " ; +5003 DATA251,208,3,76,138,192,230,251,208,2 ОР 

Ву Michael Kleinert and David Barron +5004 DATA230,252,76,43,192,76,73,78,69,32 KN 
For cassette: type in and save the Bug Repellent program, then а 


type RUN 63000[RETURNJSYS 828[RETURN |]. If you typed the 
program properly, it will generate a set of two-letter line codes that 
will match those listed to the right of the respective program lines, 


+5096 DATA160,9,177,251, 179,230,251, 208,2,230 СЕ 
+5007 DATA252,177,251,32,205,189,169,58,32,210 JE 


Once you'v а working Bug Repellent, type in the program *5008 DATA255,169,0,133,253,230,254,32,37,193 CL 
you wish to check. Save it and type the RUN and SYS commands *5009 DATA234,165,253,160,0,76,13,193,133,253 NB 
listed above once again, then compare the line codes generated to +5019 DATA177,251,208,237,165,253, 41,240, 74,74 МВ 
those listed in the magazine, If you spot a discrepancy. a typing -5011 DATA74,74,24,105,65,32,210,255,165,253 ЕР 
error exists in that line. Important: you must use exactly the same +5012 DATA41,15,24,105,65,32,210,255,169,13 GH 
spacing as the program in the magazine. Due to memory limitations +5013 DATA32, 220, 192,230,63,208,2,230,64,230 АХ 
‘on the VIC, the VIC Bug Repellent will register an error if your +5014 DATA251,208,2,230, 252, 76,11,192,169,153 NG 
spacing varies from whats printed. *5015 DATAI60,192,32,30,171,160,63,165,64,76 ВР 

You may type SYS 828 as many times as you wish, but if you +5016 DATA231,192,96, 76,73, 78,69,83,58,32 ЕР 
а foranyihing A уре! КЫМ ы roS -5017 DATAO,169,247,160,192,32,30,171,160,3 РЈ 
Repellent zm +5018 DATA133,254,32,228,255,201,83,240,6,201 FK 


When your program has been disinfected you may delete all lines 


е sure the progra үре doesn't include lines *5019 DATABO,208,245,230,254,32,210,255,169,4 FL 

from E on (Be sure the program you type doesn't include lines. *5020 DATA166,254,160,255,32,186,255,169,0,133 CL 
For disk: enter Bug Repellent, save it, and type RUN:NEW *5021 DATA63,133,64,133,2,32,189,255,32,192 СС 
IRETURN]. Type in the program you wish to check, then SYS 828. *5022 DATA255,166,254,32,201,255,76,73,193,96 NN 
To pause the line codes listing. press SHIFT. *5023 DATA32,210,255,173,141,2,41,1,208,249 МН 
To send the list to the printer type OPEN 4.4:CMD 4:SYS *5024 DATA96,32,205,189,169,13,32,210,255,32 ІМ 
828[RETURN]. When the cursor comes back. type +5025 DATA204,255,169,4,76,195,255,147,83,67 КС 
PRINT#4:CLOSE 4[RETURN]. “5026 DATA82,69,69,78,32,79,82,32,80,82 DC. 


*63000 FORX=828T01023:READY:POKEX,Y:NEXT:END АС -5027 DATA73,78,84,69,82,32,63,32,0,76 ML 
“63001 DATA169,0,133,63,133,64,165,43,133,251 JL +5028 DATA44,193,234,177,251,201,32,240,6,138 GN 
*63002 DATA165,44,133,252,160,0,132,254,32,228 DF +5929 DATA113,251,69,254,170,138,76,88,192,0 ЈК 


-63003 DATA3,234,177,251,208,3,76,208,3,230 ОЕ -5030 DATAO,0,0,230,251,208,2,230,252,96 NA 
*63004 DATA251,208,2,230,252,169,244,160,3,32 ОН -5031 DATAl70,177,251,201,34,208,6,165,2,73 ІМ 
*63005 DATA30,203,160,0,177,251,170,230,251,20 -5032 DATA255,133,2,165,2,208,218,177,251,201 ЈА 
8 КО +5033 DATA32,208,212,198,254,76,29,193,0,169 ЕМ 
*63006 DATA2,230,252,177,251,32,205,221,169,58 JJ -5034 DATA13,76,210,255,0,0,0. РА 


«63007 DATA32,210,255,169,0,133,253,230,254,32 ОК 
«63008 ПАТА228,3,234,165,253,160,0,170,177,251 16 (PL АКУ ЫП ЕП) 4 
*63009 DATA201,32,240,6,138,113,251,69,254, 170 BP d FORTHEC-64 
*63010 DATA138,133,253,177,251,208,226,165,253 By Gordon F. Wheat 
51 рр Flankspeed will allow you to enter machine language Ahoy! pro. 
*63011 DATA240,74,74,75,74,25,105,65,32,210 EK s without any mistakes. Once you have typed the pro; 
+6312 DATA255,165,253,41,15,24,105,65,32,210 ҒО it for fut While ап ML 
-63013 DATA255,169,13,32,210,255,173,141,2,41 PK їсс 1o enter space or hit the 
+63014 DATAL, 208, 249, 230,63, 208;2,230,64,230 СВ ates peti 
+63015 DATA251,208,2,230,252,76,74,3,169,236 КН D Fiankspeed we OAD ume 
-63016 DATA160,3,32,30,203,166,63,165,64,32 Пр MTOA 
:63017 DATA205,221,169,13,32,210,255,96,230,25 це sta И ее 
1 SAVES what you have entered so far 
-63018 DATA208,2,230,252,96,0,76,73,78,69 OI  [3-LOADS in a program worked on previously 
-63019 ПАТА83,58,32,0,76,73,78,69,32,35 FG continue on a line you stopped on after LOADing in the 
+6302) DATA32,0,0,0,0,0 LE previously saved work. 

ins through the program to locate a particular line, or to find 


C-64 VERSION ош where you stopped the last time you entered the program. 17 
Ву Michael’ Kleiner and David Barron temporarily freezes the output as well 


in 
LOAD ina 
«1 for tape. 


+5 POKES3280, 12: POKES3281,11 - LL 

Type in. SAVE. and RUN the Bug Repellent. Type then 2 e Ds 

type in or LOAD the Ahoy’ program you wish to check Sous (CLEAR][¢ 8][RVSON][15 ГОМЕ рЫ, 

A Кыс спа ао рх F +19 PRINT"[RVSON][S" "]MISTAKEPROOF ML ENTRY d 
To pause the listing depress and НЕТ key ROGRAM[G" "]" 354 MC 
Compare the codes your machine generates to the codes listed. 715 PRINT [RVSON][9" "]CREATED BY G. F. WHEAT[ 

to the right of the respective program lines. If you spot a difference. 9" 

an'error exists n thai line: Joc down ihe number of lines where -20 PRINT'[RVSON][3" "]COPR. 1984, ION INTERNA 


86 AHOY! 
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TIONAL INC.[3" "]" 

*30 FORA-54272T054296:POKEA , 0: NEXT 

40 РОКЕ54272,4:РОКЕ54273, 48: РОКЕ54277,0:РОКЕ5 
4278,249:Р0КЕ54296,15 

*70 FORA-680T0699 : READB: POKEA , B: NEXT 

513) ФАТА169,251,166,253,164,254,32,216,255,96 HJ 
*76 DATA169,0,166,251,164,252,32,213,255,96 JB 
+80 B$="STARTING ADDRESS IN HEX":GOSUB2010:AD- 


DH 
IM 


B:SR-B HC 
+85 605082520: ТЕВ=ОТНЕМ8 0 ғо 
“86 POKE251,T(4)4T(3)*16:POKE252,T(2)4T(1)*16 KE 
:90 B$="ENDING ADDRESS IN HEX':GOSUB2O10:EN-B IF 
*95 GOSUB2510:IFB-OTHENSO FP 
+96 РОКЕ254,Т(2)+Т(1)*16:В=Т(4)+1+Т(3)*16 MN 
*97 ТЕВ>255ТНЕМВ=В-255:РОКЕ254 ‚РЕЕК(254)+1 GE 
*98 POKE253, B:PRINT HN 
"100 REM СЕТ HEX LINE L 


n 
“110 605083010; РКІМТ": [c P][LEFT]"; :ЕОВА=0Т08 FG 


+120 РОВВ=ЙТО1 :GOTO210 Мр 
+125 NEXTB МЕ 
:130 AZ(A)ST(1)4T(0)*16:1FADAA-l-ENTHEN31O LH 
+135 PRINT" [c P][LEFT]"; IK 
+140 NEXTA:T=AD-(INT(AD/256)*256) :PRINT" " PD 
*150 FORA=(T07:'T=T+A%(A):IFT>255THENT=T-255 LK 
+160 NEXT IA 
+170 TPA%(8)<>TTHENGOSUB1019:GOTO110 FK 


%18/) РОКА=0707: POKEAD+A,A%(A) : NEXT: AD=AD+8:GOT 
0110 MN 


200) REM GET HEX INPUT AB 
*210 GETA$:IFA$=""THEN210 HO 
+211 IFA$=CHR$(20)THEN270 GC 
*212 ТРА$=СНЕ$ (133 )ТНЕМ4000 MD 
*213 IFA$=CHR$(134)THEN4100 КЕ 
*214 IFA$=CHR$(135)THENPRINT" ":GOTO4506 GE 
*215 IFA$=CHR$(136)THENPRINT" ":С0Т04700 BJ 
«220 IFA$>"@"ANDA$<"G"THENT(B)=ASC(A$)-55:GOTO 
250 GM 
“230 ТЕА$>"/"АМОА$ <": "THENT(B)-ASC(A$) -48: GOTO 
250 LE 
«240 GOSUB1100:GOTO216 LL 
*250 PRINTA$"[c P][LEFT]"; OA 
“260 GOTO125 сб 
270) IFA>OTHEN289 ОР 
*272 А--1:ТЕВ-1ТНЕМУ29/) Ов 
«274 6070140 CJ 
*280 IFBEOTHENPRINTCHR$(20) ; CHR$( 20) HG 
*285 А-А-1 BE 
290 PRINTCHR$(20) ; :GOTO140 KH 
“300 REM LAST LINE AD 
*310 PRINT" ":T=AD-(INT(AD/256)*256) GJ 
*320 ЕОВВ=ОТОА-1 :Т=Т+АЯ (В) :ТЕТ>255ТНЕМТ=Т-255 PL 
*330 NEXT IA 
*340 IFAZ(A) »TTHENGOSUB1010: GOTO110 КЕ 
“350 ЕОВВ-ПТОА-1:РОКЕАПжВ,А%(В):МЕХТ HN 
*360 PRINT:PRINT"YOU ARE FINISHED!":GOTO4000 ОМ 
1000 REM BELL AND ERROR MESSAGES FL 
*1010 PRINT:PRINT"LINE ENTERED INCORRECTLY":PR 
INT:GOTO1100 DH 
+1620 PRINT:PRINT"INPUT A 4 DIGIT HEX VALUE!": 
60701100 ЈА 
“1030 PRINT:PRINT"ENDING IS LESS THAN STARTING 
1": B=: GOTOO) 

*1040 PRINT:PRINT"ADDRESS NOT WITHIN SPECIFIED 

RANGE!" : B=): GOTO1106 

+1050 PRINT:PRINT"NOT ZERO PAGE OR ROM!":B-0: 8 
OTO1100 KN 
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+1060 PRINT"?ERROR IN SAVE":GOTO1100 EI 
1070 PRINT"?ERROR IN LOAD":GOTO1100 GL 
4:1080 PRINT:PRINT:PRINT"END OF ML AREA":PRINT PG 


*1100 POKES4276,17:POKE54276 , 16: RETURN BH 
*1200 OPEN15,8,15: INPUT£15, 4, AS: CLOSE15: PRINTA 

$: RETURN ІМ 
+2000 REM СЕТ FOUR DIGIT HEX PC 
+2010 PRINT:PRINTB$; : INPUTTS GM 
+2020 IFLEN(T$) «»4THENGOSUB1020: GOTO2016 II 


+2040 FORA=1T04:A$=MID$(T$,A,1):GOSUB2969: IFT( 
А) =16ТНЕМСОЅ0В1020):60702010 Ар 
+205) МЕХТ:В-(Т(1)%4096)%(Т(2)%256)%(Т(3)%16)% 

Т(4):ВЕТИЕМ GF 
-2060 IFAS»" GANDASC"G"THENT(A) -ASC(A$)-55: ВЕТ Й 
URN 


*2070 IFAS»" /" ANDA$«" : "THENT(A)2ASC(A$)-48: RET 

URN KP. 
*2080 T(A)=16:RETURN NP. 
“2500 REM ADRESS CHECK LI 
“2510 ТЕАП>ЕКІНЕУ1030 МІ 
“2515 ІЕВ<5КОВВ>ЕКТНЕМ1040 MG 


*2520 IFB<2560R(B>49960ANDB<49152)ORB>53247THE 
№1050 МІ 
“2530 RETURN IM 
“3000 REM ADDRESS TO HEX EB 
*3010 AC-AD:A-4096:GOSUB3070 HG 
+3020 A=256:GOSUB3070 CE 
+3030 A=16:GOSUB3070 PN 
+3040 A=1;:GOSUB3070 МЈ 
+3060 RETURN ІМ 
“3070 Т=ТМТ(АС/А) : ТЕТ>9ТНЕМА$ =СНВ$(Т+55) :GOTO3 
090 CJ 
“3080 AS-CHRS(T448) JP 
+3090 PRINTA$; : АС=АС-А*Т : RETURN AC 
4000 A$='**SAVE**" : 605084200) AI 
+4050 OPEN1,T,1,A$:SYS680:CLOSEL LH 
+4060 IFST-UTHENEND EO 
*4070 GOSUB1060: IFT-8THENGOSUB1200 FJ 
:4080 С0Т04000 FF, 
*4100 AS="**LOAD**" : GOSUBA200. AB 
+4150 OPEN1,T,0, A$:SYS690:CLOSEl MF 
“4160 ТЕЗТ=64ТНЕМ1 10 JH 
*4170 GOSUB1070:IFT-8THENGOSUB1200 CM 
*4180 FO 
74200 PRINTTAB(14) A$. FG 
“4210 : INPUT"FILENAME" ; A$ OM 
"4215 IFA$=""THEN4210 GF 
*4220 PRINT:PRINT"TAPE OR DISK?":PRINT DF. 
+4230 GETB$:T=1:IFB$="D"THENT=8: A$="@0:"+A$;RE 
TURN IG 
+4240 ТЕВ5<>"Т"ТНЕМ4230 FN 
*425() RETURN IM. 
+4500 B$="CONTINUE FROM ADDRESS":GOSUB2010:AD» E 
B 

+4510 605082515:ТЕВ=ОТНЕМА500, МА 
+4520 PRINT:GOTO110 OI 
+4700 B$="BEGIN SCAN AT ADDRESS":GOSUB2010: AD= 

B FH 
+4705 GOSUB2515: IFB-UTHENA700. NK 
+4706 PRINT:GOTO4740. DI 
*4710 ЕОЕВ=ОТО7 : AC-PEEK(AD«B) : GOSUB3030: IFAD+B 
=ENTHENAD=SR : GOSUB1980:GOTO119 BK 
+4715 PRINT" "; :NEXTB EC 
+4720 PRINT: AD=AD+8 GN 
+4730 СЕТВ5:ІЕВ3-СНВ5(136)ТНЕУ110 MN 
+4740 GOSUB3010: PRINT": :00Т04710 т 


ІМ РО ВТАМТ! Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
* and provide other essential information on entering Аһоу! programs. Refer to these pages before entering any programs! 


PRINT SHOP TO BIT MAP CONVERTOR 
FROM PAGE 50 

*1 REM PRINT SHOP TO BIT MAP CONVERTER 
*2 REM FOR PRINT SHOP GRAPHIC EDITOR 


LD 
BO 


+З REM Жао оо е KN 
“4 REM * (С) MARCH 3, 1984 ы) CD 
+5 REM  * BY MORTON A. KEVELSON * DB 
*6 REM ЖР, 0. BOX 260 > ІН 
*7 REM % HOMECREST STATION * JG 
*8 REM  * BROOKLYN, NY 11229 * BO 
*Q REM жеоо оодоо Е KN 
“10 REM USE WITH DOODLE! FILES BG 
*19 ON FL GOT0200,400 PN 


+20 РОКЕ51,0:Р0КЕ52,57:Р0КЕ55,0:РОКЕ56,57 OK 
+30 PRINT" [ВУЗОМ] 1[ВУЗОЕЕ] ВІТ МАР TO PRI 

NT SHOP" PI 
+40. PRINT" [RVSON ]2[RVSOFF] PRINT SHOP TO 

BIT MAP" MB 
+50 PRINT"PRESS [RVSON]1[RVSOFF] OR [RVSO 

N]2[RVSOFF]" от 
+60 GET FL$:FL=VAL(FL$) KH 
+70 IF FL«l OR FL>2 THEN GOTO60 
+80 INPUT"SOURCE FILE МАМЕ";5Е$ 


*90 INPUT"DESTINATION FILE NAME";DF$ FE 


*100 SA=24576:REM SA-DOODL! START ADDRESS BG 
"110 TF-22528:REM PRINT SHOP START ADDRES 

S JG 
*120 LOAD SF$,8,1 BG 
*200 FOR RW-0TO7 0G 
“210 FOR Р5-0Т07 0А 
"220 FOR СО-07010 ВВ 
*230 BY=SA+CO*8+PS+RW*320 KB 
“240 POKE ТЕ,РЕЕК(ВҮ) РР 
“250 ТЕ=ТЕ+1 LC 
+260 NEXTCO: NEXTPS : NEXTRW NP 
*270 FORI-23100T023107:POKEI,0:NEXTI ІМ 
“280 60508800 CI 


“290 POKEA3, 0: POKEA4 , 88:POKE45, 67: POKEA6, 
90: SAVE"PSTEMP",8 

+300 РОКЕ43,1:РОКЕ44,8:РОКЕ45,РЕЕК(36864) 
1POKEA6, PEEK (36865) AO 
“310 OPEN1,8,15:PRINT#1,"RO:"+DF$+"=PSTEM 


P":CLOSE1;END CJ 
*40f) FOR CM=23552 TO 24551 JM 
“410 POKE CM,1:NEXT CM NG 
+420 FOR MM=SA TO SA+7999 EP 
+430 POKE ММ,0:МЕХТ MM oP 
"440 FOR RW=0TO7 06 
*450 FOR Р5-0Т07 OA 
"460 FOR СО-0Т010 ВВ 
+470 BY=SA+CO*8+PS+RW*320 KB 
+480 POKEBY , PEEK(TF) CF 
“490 ТЕ=ТЕ+1 LC 
“500 NEXTCO: NEXTPS: NEXTRW NP 
*510 FORRW-OTO7 06 


88 АНОҮ! 


+520 FORPS=0TO7 0A 
+530 BY=SA+88+PS+320*RW MC 
«540 POKEBY,128 AO 
+550 NEXTPS :NEXTRW JB 
+560 FORCO=0TO10 BB 
+570 BY=SA+CO*8+1923 JL 
+580 POKEBY, 255 AD 
+590 NEXTCO BD 
“600 GOSUB800 СІ 
“610 POKEA3, 0: POKEA4 , 92: POKEA5 , 0: POKE46, 1 

28 HO 
+620 SAVE"DDTEMP",8 AF 
+630 POKE43,1:POKE44,8:POKE45 , PEEK (36864) 


1POKEA6, PEEK (36865) 

+640 OPEN1,8, 15: PRINT , "RO: -DF$4" -DDTEM 
P":CLOSEl:END 

+800 РОКЕЗ6864,РЕЕК(45) EH 
“810 РОКЕЗ6865,РЕЕК(46) ТЕ 
“820 RETURN ІМ 


SCREEN MAGIC ТО DOODLE! CONVERTOR 
FROM PAGE 50 
*10 I-49152 AJ 
*20 READ A:IF 4-256 THEN 40 FN 
*30 POKE І,А:1=1+1:60Т0 20 OF 
+40 PRINT"[CLEAR] [DOWN] [DOWN][5" "]SCREEN 
MAGIC/DOODLE CONVERTER" BF 
+50 PRINT"[DOWN][8" "](C) 1984 BY M. BEUT 
JER" KM 
+60 PRINT"[3"[DOWN]"] SELECT :"CHR$(13); 
CHR$(13);"[11" "11 - DOODLE TO SCREEN MA 


GIC" HO 
+70 PRINT"[11" "|2 - SCREEN MAGIC TO DOOD 
LE" LO 
+80 INPUT"[DOWN][DOWN][15" "]";A EE 
“90 IFACIORA»2THENAO IK 
*100 IFA=1THEN150 OL 
+110 GOSUB500:8YS49152 BK 
+120 INPUT"ANOTHER CONVERSION"; A$ EO 
+130 IFLEFT$(A$,1)<>"N"THEN4O II 
*140 END IC 
+150 GOSUB500:SYS49194 CE 
+160 6070120 CD 
+50) PRINT"ENTER THE NAME OF THE EXISTING 
FILE." N 
+505 PRINT"DO NOT INCLUDE THE 'DD' PREFIX 
on" GK 
+506 PRINT"DOODLE FILES!" DL 
+510 INPUTAS:B-LEN(A$) JO 
+520 IFA=1ANDB>8THEN510 LL 
+530 ТЕВ>16ТНЕМ510 DO 
+540 FORX=1TOB KC 
+550 POKE49292+X, ASC(MID$(A$,X,1)) HJ 
*560 NEXT IA 
*570 РОКЕ49289,В СА 
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+580) B=B+2 

“590 IFB<17THENPOKE49290,B:RETURN 
“600 POKE49290,16 

“610 RETURN 
+49152 DATA 
“09160 DATA 
"49168 DATA 
37 
+49176 


ВА 


169,92,133,252,160,0,132,251 
162,4,169,1,145,251,200,208 
251,230,252,202,208,246,174,1 
IB 
192,160,141,169,96,32,62,192 ME 
*49184 DATA 169,92,160,139,174,138,192,76 NN 
*49192 DATA 98,192,174,138,192,160,139,16 
9 CL 


DATA 


*49200 DATA 92,32,62,192,169,96,174,137 СІ 
*49208 DATA 192,160,141,76,98,192,142,81 EC 
*49216 DATA 192,140,83,192,141,94,192,169 CI 
*49224 DATA 1,162,8,160,0,32,186,255 EI 
*49232 DATA 169,0,162,0,160,192,32,189 ММ 
*49246 DATA 255,169,0,162,0,160,0,76 EE 
72245 DATA 213,255,142,116,192,140,118,1 
JG 
*49256 DATA 133,252,169,1,162,8,160,0 JM 
49264 DATA 32,186,255,169,0,162,0,160 ЕМ 
49272 DATA 192,32,189,255,169,0,133,251 BJ 
E DATA 169,251,162,255,160,127,76,21 
EG 
*49288 DATA 255,0,0,68,68,256 MC 
SPEEDING PIXELS 
FROM PAGE 37 LISTING 1 
*1 REM JD 
*2 REM RUPERT REPORT #19 PD 
*3 REM BASIC LISTING 1 DE 
*4 REM BIT MAP GRAPHICS KG 
*5 REM JD 
“6 REM —-DELETE LINES 65 AND 265 IF JA 
“7 REM ---OBJECT FILES CLSCRN.O AND MP 
“8 REM —-PLOT.$C.O ARE ON THE DISK LK 
*9 REM JD 
*10 ON LL GOTO 75,90 MJ 
*15 DEF FNSB(N)ePEEK(MM) OR 2[UPARROW]N LG 
*20 DEF FNRB(N)-PEEK(MM) AND (255-2[UPARR 
OW]N) FP 
*30 VV=53248 :REM VIC-II REGISTER 0 FL 
*35 :ВЕМ >>> PUT ВІТ MAP AT 8192 <<< 
(SET BIT 3 OF VIC REGISTER 24) JA 
+40 MM=VV+24 : POKE MM, FNSB(3) 00 
+45 :REM >>> SELECT BIT MAP MODE <<< 
(SET BIT 5 OF VIC REGISTER 17) DH 
«50 MM=VV+17 : POKE MM,FNSB(5) м 
“55 ВАЅЕ=8192 :REM START ВІТ MAP MEMORY KD 


“60 :ВЕМ >>> CLEAR BIT МАР <<< HG 
*65 FOR М-8000 TO 16191:POKE М,0 :NEXT : 


GOTO 90 EP 
*70 LL=1 : LOAD"CLSCRN.0",8,1 HC 
“75 SYS 828 EF 
“80 LL-2 : LOAD"PLOT.$C.0",8,1 HN 
«85 :REM >>> SELECT COLORS Cl AND CO <<< LC 
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*96 Cl-l : C= : CC-16*Cl + CO OM 
“95 :REM >>FILL SCREEN MEMORY WITH COLOR АТ 


"100 FOR ММ-1024 TO 2023 :РОКЕ MM,CC:NEXT OM 
7194 : DI 
*195 ::REM:: MAIN PROGRAM :: AE 
*196 : DI 
*200 PI-3.14159265 : К-РІ/40 GE 
*205 POKE 198,0 :КЕМ CLEAR KBD BUFFER KG 
“210 70-49155:71-49156:22-49157 ЕЕ 
*220 FOR 0-5 TO 95 STEP 8 LA 
*230 FOR Х-0 TO 319 STEP 6-LOG(Q) BB 
«240 XMSB=0 : XLSB-INT(X) ME 
*250 IF XLSB>255THENXLSB=XLSB-256:XMSB=1 МВ 
*260 Y-Q*SIN(X*K)495 FL 
*265 GOSUB 400 : GOTO 280 IC 
*270 POKE Z0,XLSB:POKE 21,ХМ5В:РОКЕ Z2,Y: 

5Ү5 49152 CD 
*280 IF PEEK(198)<>0 THEN 300 со 
+290 NEXT:NEXT EF 
*295 IF РЕЕК(198)=0 THEN 295 :REM CHECK К 

BD BUFFER DN 
*296 : DI 
*297 ::REM:: BACK TO NORMAL :: EL 
298 : DI 
*300 :REM >>> RESET BIT MAP MODE <<< HJ 
*310 MM=VV+17 : РОКЕ MM,FNRB(5) JN 
*320 :ВЕМ >>> RESTORE SCREEN MEMORY BASE GC 
“330 MM=VV+24 : POKE MM,FNRB(3) МР 
+340 PRINT CHR$(147) :REM CLEAR SCREEN ЕС 
*390 END IC 
*394 : DI 
*395 :REM >>> TURN ON PIXEL AT (X,Y) OB 
+396 :REM >>> THIS SUBROUTINE IS REPLACED 


BY THE ML ROUTINE CALLED AT LINE 270 BH 
3977: ТІ 
+400 BIT=7-(X AND 7) PJ 
*410 MM-BASE + 320*INT(Y/8) + 8*INT(X/8) 

+(Ү AND 7) AP 
+420 РОКЕ MM,FNSB(BIT) MO 
+530 RETURN IM 


Listings 2 and 3 are Flankspeed versions of the CLRSCR.O 
and PLOT.SC.S programs listed in assembled format in the 
Speeding Pixels article (on pages 39 and 43 respectively). 


LISTING 2 
Sys to Start: 828 
40 00 AF 
40 03 A6 
00 AD 10 
ЕВ Е6 64 
АС 42 10 


Lost byte: 0368 
03 00 20 1F 
03 85 FB AD 
AE 41 03 AO 
88 91 FB 00 
30 07 DO F4 
EF 60 00 88 


First byte: 033C 
033С: 4C 4 
0344: 
034C: 
0354: 
035C: 
0364: 


LISTING 3 
Last byte: COAF — Sys to Start: 49152 
08 CO ЗЕ 01 00 00 20 75 


АНОУ! 


First byte: C000 
C000: 4C 


89 
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C008: AD 04 
C010: 04 Со 
C018: 40 30 
C020: AD 05 
C028: 48 30 
C030: AD 05 
С038: 00 85 
C040: FC 2А 
C048: FD A5 
€050: 26 FC 
C058: 85 FD 
С060: AD 05 
C068: 85 FD 
С070: AD 03 
C078: 85 FD 
C080: FE AD 
C088: FD AD 
C090: AD 03 
C098: 07 38 
СОАО: 2А ce 
С0А8: Bl 


FROM Qiz 18 ; SONG МАКЕК 


“1 REM "SONG MAKER" IL 
*3 REM THIS PROGRAM LETS YOU COPY THE FR$ 


01 
04 
03 
Ж 


8D 
c9 
со 
c9 
co 
A9 
26 
85 
2А 
Ер 
ЕЕ 
Ер 
ЕЕ 
Ер 
85 
85 
РЕ 
А9 
00 
00 
ЕР 


B6 
44 
с7 
21 
66 
FO 
C4 
5D 
3B 
зс 
67 
"7E 
7E 
7F 
58 
F4 
ЕА 
5р 
46 
c5 
4A 


co 
AD 
05 
со 
05 
co 
FC 
26 
FC 
2А 
А5 
co 
AS 
ch 
AD 
06 
07 
со 
Е5 
10 
05 


FO 
03 
A9 
10 
А5 
29 
A5 
FC 
85 
26 
FC 
29 
FE 
29 
04 
со 
со 
29 
ЕВ 
ЕС 


13 
со 
ЗЕ 
OB 
c7 


A9 
30 
8D 
29 
8D 
85 


() STRINGS FROM THE SCREEN DISPLAY KI 
*5 REM OR SAVE THE FR$() STRINGS ON DISK 
FOR RETRIEVAL BY "SONG LOADER" EN 


*7 REM YOU TYPE IN SONGS AT 9500-9890 AND 


NAME THE SONG SAVE FILE AT 200 KB 
+19 GOSUB 9000:GOTO 80 IB 
*60 FOR Nel TO LEN(MD$(PH)):SYS MM LH 
+62 F$=FR$(N, PH) DG 
+65 SYS M ON 
+66 IF 05-1 THEN GOSUB 500 OE 
+67 FOR 1-0 TO DUZ(VAL(MIDS(MDS(PH),N,1)) 
):NEXT JB 
+68 REM SYS MM:REM STACCATO NOTES GA 
+69 NEXT:PH=PH+1:IF PH>ES% THEN РН-0 11 
-70 SYS MM:RETURN A0 
+80 PRINT "[CLEAR][13"[DOWN]"]SHIFT = 
AY NEXT PHRASE!" КА 
“81 PRINT "[4" "]Q = 'QUIT'" LA 
+82 PRINT "[4" "]S = 'SAVE SONG ON DISK'" JM 
-83 PRINT "[4" "|р = "МАКЕ DATA STATEMENT 
S AT LINE[12" "|94001!" GA 
+84 PRINT "[4" "|р = "PRINT EACH F$ STRIN 
G AS IT" 66 
85 PRINT "[9" "]PLAYS; WAIT FOR KEYPRESS 

OK 
+86 PRINT "[9" "]BETWEEN NOTES'" NN 
+87 PRINT "|4" "]N = 'NO PRINTING OF F$ S 
TRINGS'" GJ 
:90 05-0 HO 


90 AHOY! 
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Letters оп white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


-100 PRINT "[HOME][16" "][HOME]PHRASE "PH DD 
-110 IF PEEK (653)<>0 THEN GOSUB 69:GOTO 
100 
+120 A-PEEK(203):IF A-64 THEN 110 
-130 IF А=62 THEN POKE 198,0:SYS 65126:RE 
М "WARM START" ENDS PROGRAM тс 
+135 IF A=41 THEN DS-1:GOTO 110:ВЕМ SET Р 
LAG TO PRINT FR$() VALUES 
+140 IF A-13 THEN PRINT "[HOME]SAVING DIS 
К FILE":GOSUB 200 GD 
+145 IF A-39 THEN DS-0:REM SET FLAG TO ST 
OP PRINTING FR$() 
+150 IF A-18 THEN 20000:REM MAKE DATA STA 
TEMENTS AND WIPE OUT LINES>9400 FG 
+199 GOTO 110 cc 
+200 OPEN 2,8,2,"@0:SONG #1,S,W" MO 
+210 CR$-CHRS(13) : PRINT#2, ESZCR$EVZCR$LDZ 
CR$; PI 
*215 FOR I=) TO 2:PRINT£2,GZ(I)CR$;:NEXT: 
FOR I-0 TO 2 NF 
*220 PRINT#2, AKZ(I)CR$DYZ(I)CR$SNZ(I)CR$R 
EZ(I)CR$; PL 
+225 FOR N= TO l:PRINT42,PWZ(I,N)CR$; :NE 
XT:NEXT BA 
+230 FOR I= TO 9:PRINT#2,DU%(1)CR$; :NEXT РН 
+235 FOR РН-0 TO ES%:PRINT#2,MD$(PH)CR$;: 
PRINT "<"; KM 
+240 FOR N=1 TO LEN(MD$(PH)):FOR I=1 TO 6 PF 
+245 PRINT#2,MID$(ER$(N,PH),I,1)CR$; : NEXT 
:NEXT: NEXT 
+290 CLOSE 2:PH=0:RETURN 
+500 PRINT "[HOME][DOWN][DOWN JNOTE[5" "][ 
S"[LEFT]"]"N:FOR 1-0 TO 2:PRINT "[20" "| 
"NEXT 
+505 PRINT "[HOME][3"[DOWN]"]":FOR I=1 TO 

5 STEP 2 MJ 
+507 PRINT "[15" "][15"(LEFT]"]"; GA 
«510 PRINT ASC(MIDS$(F$,I,1))" "ASC(MID$( 
F$,I41,1))" ":МЕХТ GO 


ND 
PK 


FI 


*515 PRINT "PRESS SHIFT TO GO ON" CB. 
+520 IF PEEK(653)-0 THEN 520 HO 
+525 PRINT "[UP][21" "]" BL 
*530 RETURN IM 
*8998 REM SET UP SOUND SHAPE FD 
+9000 Е$="Е":Т=0:№=0:УС=0:М=848:ММ=823: RE 

М M&MM PUT ML ІМ CASSETTE BUFFER JG 
ME :ESZ-8:DIM М09(Е52),6%(2), E к 

+9002 DIM MES(ES2,2) ,MV$(ES2,2) ES 


+9003 REM PREVIOUS LINE:9002 DIM МЕ9(Е5%, 
2),MV$(ES2,2) 

+9004 DIM DUZ(9),PIZ(168,1),AK2(2),DY2(2) 
;SNZ(2) ,REZ(2) ,WF2(2) ,PW2(2,1) IP 


*9008 REM ATTACK--VOICES 0,1,2 KG 
+9009 REM NUMBER FROM 0 TO 15; LOWER NUMB 
ER=SHARPER ATTACK OK 
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+9010 АК2(0)-0:АК2(1)-0:АК2(2)-0 СР 
“9015 FOR 1-0 TO 2:AKZ(I)-AKZ(I)*16:NEXT E 
+9018 REM DECAY—VOICES 0,1,2 

*9019 REM NUMBER FROM 0 TO 15; LOWER cli 
ER-FASTER DECLINE GA 
+9020 DYZ(0)-5:DY2(1)-3:DY2(2)23 AL 
+9028 REM SUSTAIN--VOICES 0,1,2 FC 
“9029 REM NUMBER FROM 0 TO 15; LOWER NUMB 
ER-SOFTER VOLUME DURING SUSTAIN JM 
+9030 5№(0)=2:5№(1)=0:5№(2)=0 СІ 
+9035 FOR I-0 TO 2:SNZ(I)-SNZ(I)*16:NEXT BD 
+9038 REM RELEASE--VOICES 0,1,2 OK 
“9039 REM NUMBER FROM 0 TO 15; LOWER NUMB 
ER-FASTER DROP TO SILENCE AT END PJ 


+9040) REZ(0)=0:REZ(1)=3:REZ(2)=5 BG 
+9048 REM SET SOUND ADDRESSES Jc 
+9050 FOR 1-0 TO 2:4D(1)-5427747*I:NEXT IL 
+9058 REM POKE ADSR ENVELOPES JL 


SR 1=0 TO 2:POKE AD(I),AKZ(I) OR D 

I 

*9065 POKE AD(I)+1,SN%(I) OR REZ(I):NEXT x 

*9067 REM SET UP GATES 

*9068 REM WAVEFORMS, VOICES 0,1,2 (ADD UN 
LUES): 

*9069 REM TRIANGLE ON=16; SAWTOOTH ON=32; 
PULSE ON=64 (SET WIDTH!); NOISE ON=128 IL 


DJ 


*9070 МЕ2(0)-32:МЕ2(1)-64:8Е2(2)-64 LH 
*9075 GZ(0)-WFA(0)OR 1:GZ(1)-WFZ(1) OR 3: 
GZ(2)-WF2(2) OR 1 сс 
“9078 REM SET PULSE WIDTHS AC 
«9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 
TE MG 
+9080 PW2(0,0)=200;PW2(0,1)=3 PB 
“9081 PWZ(1,0)2200:PW2(1,1)-10 HJ 
"9082 PW2(2,0)=200:PW2(2,1)=7 KB 
“9085 FOR I=) TO 2:VC=54274+1*7:FOR №0 T 
01 Ов 
*9086 POKE VC+N,PW4(1,N):NEXT:NEXT № 
“9098 REM SET UP DURATIONS ME 
*9100 FOR I=) TO 9:READ DUZ(I):NEXT MB 
*9105 


DATA 40,96,128,192,256,384,512,640, 
768,1024 EG 
+9196 REM MACHINE LANGUAGE ROUTINE (АТ M) HM 
*9198 REM FIND ADDRESS OF F$ AND PUT IT I 

N ZERO PAGE АТ 139, 140 МА 
*9200 N-PEEK(45)4256*PEEK(46)43:Y2-N/256: 
XZ-N-Y2*256 

*9205 POKE М,173:РОКЕ M+1,X%:POKE M+2,Y2: 
N-N41:Y2-N/256:XZ-N-Y2*256 

*9210 POKE Мғ3,133:РОКЕ M+4,251:POKE M45, 
173:POKE M+6,X%:POKE M+7,YZ NK 
*9215 POKE M+8,133:POKE M+9,252:POKE М+10 
,160:РОКЕ М+11,0 НА 
+9220 РОКЕ М+12,162:РОКЕ М+13,0 

“9223 REM GET EACH PITCH FROM F$ AND PUT 
IT IN FREQUENCY REGISTER 

*9225 FOR I=M+14 TO М+54 STEP 8:POKE 1,17 
7:РОКЕ 1+1,251 
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IF 
AN 


CH 
KF 


+9230 POKE 1+2,157:РОКЕ 1+3,0:РОКЕ 144,21 
2 HK 
+9235 РОКЕ 1+5,200:РОКЕ 146,162:READ А:РО 


КЕ 1+7,А:МЕХТ ТЕ 
+9236 DATA 1,7,8,14,15,4 АК 
*9238 REM GATE EACH SOUND OPEN MC 
"9240 N-0:FOR I=M+59 TO М+71 STEP 6 BJ 


*9241 POKE Т,173:А=ММ-3+№:1%=А/256:ХЯ=А-2 
56*Y%:POKE 1+1,Х2:РОКЕ 1+2,Y% 
“9242 POKE 1+3,141:READ А:РОКЕ I+4,A:POKE 
1+5,212:N=N+1:NEXT DG 
+9243 DATA 4,11,18 PB 
+9248 REM GARBAGE COLLECTION ME 
“9250 FOR I=M+77 TO M490:READ А:РОКЕ I,A: 
NEXT CE 
+9255 DATA 164,52,165,51,105,6,144,1,200, 
133,51,132,52,96 BN. 
*9258 REM GATE-OFF ML ROUTINE AT MM LA 
-9260 FOR I-MM TO MM+16 STEP 8 
-9261 POKE I,173:Y2-3:X2-344(1-MM) /8: POKE 
І%1,Х2:РОКЕ 1+2,Y%:REM USES 820-822 
+9262 POKE 1+3,41:РОКЕ I44,254 DI 
*9263 POKE L45,141:READ А:РОКЕ I46,A:POKE 
147,212:NEXT:POKE MM+24,96 
*9264 DATA 4,11,18 
*9268 REM SET WAVEFORMS WITH GATES OFF МК 
+9269 REM STORED AT 820-822--LINE 9261 К 
EQUIRES THIS (820-HEX 03 34) 
*9270 POKE 820,6%(0):РОКЕ 821,GZ2(1):POKE 
822,62(2):5Ү5 MM OB 
«9297 REM SET FILTER AND VOLUME BN 
“9298 REM FILTER FREQUENCY 
+9299 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
-255) YZ РА 
“9300 ХЯ=3:1%=150 
“9305 POKE 54293,X%:POKE 54294,Ү% 
“9308 REM FILTER ON? DD. 
*9309 REM VOICE 1 ON-1; 2 ON=2; 3 ON-4; 1 


&2 ON=3; 2&3 ON=6; ALL ON-7 AL 
*9310 XZ-0 FM 
*9318 REM FILTER RESONANCE CE 
-9319 REM PEAK VOLUME (O0-LOW, 15=HIGH) FH 
*9320 YZ-14 JL 
+9325 YZ-YZ*16:POKE 54295,X% OR YZ MG 
*9328 REM SELECT FILTER TYPE CP. 
*9329 REM LOW-PASS-1; BAND-PASS-2;HIGH-PAS 

S-4;LO-BAND-3; HI-BAND-6; ALL=7 MH 
+9330 Х4-1 FP. 
*9335 XZ-X2*16 LC 
*9338 REM SELECT OVERALL VOLUME FJ 
*9339 REM 15-HIGH, %=LOW PB 


+9340 YZ-15:POKE 54296,X% OR YZ ЕК 
т :ВЕМ ЗЕТ NUMBER OF VOICES (MIN 
US 1 IN 
“9350 GOTO 9400 6G 
*9358 REM MUSIC DATA LOADER (EFFECTIVE ON 
LY IF 'MAKE DATA' WAS EXECUTED NP 


*9359 REM DURING MAIN LOOP) PB 
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+9360 READ ESZ:READ LDZ:DIM FR$(LDZ,ESZ) NA 
+9365 FOR РН=0 TO ESZ:READ MD$(PH):FOR N= 
1 TO LEN(MD$(PH)):PRINT "!"; 

“9370 FOR I-1 TO EAD A:FR$(N,PH)-FR$(N 


MG 


,PH)4CHR$(A) : NEXT: NEXT: NEXT AD 
“9375 PH=): RETURN Do 
*9397 REM SET UP PITCH ARRAY DK 


+9398 REM EACH NOTE, IN ALL ITS OCTAVES 
+9399 REM С 

+9400 X%=3:GOSUB 9490 

+9401 DATA 12,1,24,2,48,4,97,8, 195, 16,135 
133, 15,67,30, 134 

+9402 REM D 

+9403 X%=4:GOSUB 9490 

+9404 DATA 45,1,90,2,180,4,104,9,209,18,1 
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“9437 DATA 4,1,250,1,244,3,233,7,210,15,1 


65,31,75,63, 151, 126 АК 
-9438 REM B-SHARP IN 
+9439 XZ-16:GOSUB 9490 CE 
+9440 DATA 24,2,48,4,97,8,195,16,135,33, "а 
5,67,30,134, 255, 255 

-9485 GOTO 9500 РР 
*9489 REM READ PITCHES NA 


+9490 FOR I-0 TO 147 STEP 21:READ PIZ(I4X 
2,0) ,PIZ(L-X2,1) :NEXT: RETURN FN 
*9494 REM IDENTICAL PITCHES 

*9495 FOR I=) TO 147 STEP 21:PIZ(I4Y2,0)- 
РІЛ(1%Х24,0):РІ2(1%/2,1)-РІЛ(1%Х2,1) 
+9496 КЕХТ: КЕТПЕУ 

+9497 REM EACH PHRASE HAS ONLY ONE DUZ(PH 


GA 
LN 
EJ 


62,37,69,75,139,150 PA ) STRING, NO MATTER HOW MANY VOICES AO 
+9405 REM Е (F-FLAT) MH +9498 REM EACH PHRASE HAS ONE MES(PH,VC) 

+9406 X%=5:GOSUB 9490:Ү2-13:005ШВ 9495 IL & ONE MV$(PH,VC) STRING PER VOICE IP 
+9407 DATA 81,1,163,2,71,5,143,10,31,21,6 +9499 REM PHRASE 0 ІР 
2,42,125,84,250,168 HM +9500 М0$(0) = "100[7"1"]00[6"1"]" сі, 
+9408 REM F (E-SHARP) DB «9501 ME$(0,0)="[4"F" ]GAFG@[4"F"]GAFGE" ЕС 


*9409 X%=6:GOSUB 9490:Y%=19:GOSUB 9495 ІК 
+9410 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44,131,89,6,179 I 


L «9504 MV$(0,1)="45 45354545 453545" 


+9502 МУ$(0,0)="6[17" "J" PD 
+9503 ME$(0,1)="CC@DCGD[4"C" JaDCGDCC" 


+9411 REM G NI +9505 ME$(0,2)="FA@EAGBC[c B]FAGDAGBC[c B 
*9412 X%=7:GOSUB 9490 РЕ ]" CA 
*9413 DATA 145,1,35,3,71,6,143,12,30,25,6 "9506 MV$(0,2)="34 34343434 343434" EI 
0,50,121,100,243,200 GM +9509 REM PHRASE 1 10 
+9414 REM А NC *9510 MD$(1) = "100[14"1"]" PO 
*9415 X%=1:GOSUB 9490 H +9511 ME$(1,0)s" [ 4" F" ]GAFGEF[ 7"" ]" JP 
+9416 DATA 195,1,134,3,12,7,24,14,49,28,9 9512 MV$(1,0)="6[16" "]" OE 
9,56,199,112,143,225 PI +9513 ME$(1,1)="FC@ECDBCCFCECDACA" FD 
+9417 REM B NF *9514 MV$(1,1)="45 454 545454 5" BO 
+9418 XZ-2:GOSUB 9490 PE +9515 ME$(1,2)="FA@EADBC[c B]FAEADFCF" II 
+9419 DATA 250,1,244,3,233,7,210,15,165,3 +9516 MV$(1,2)-"34 34343434343435" от 
1,75,63,151,126,46,253 CF -9519 REM PHRASE 2 JB 
+9420 REM D-FLAT (C-SHARP) JL +9520 MD$(2) = "100[7"1"]00[6"1"]" JF 
+9421 X%=11:GOSUB 9490:Y2-17:GOSUB 9495 МН 


+9422 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 

+9423 REM E-FLAT (D-SHARP) 

+9424 X%=12:GOSUB 9490:Y2418:GOSUB 9495 
+9425 DATA 62,1,125,2,251,4,247,9,239,19, 
223,39,191, 79,126,159 FB 
+9426 REM G-FLAT (F-SHARP) HH 
+9427 X%=14:GOSUB 9490: Y%=20:GOSUB 9495 ІМ 
+9428 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214,94,172, 189 

+9429 REM A-FLAT (G-SHARP) 

+9430 X%=8:GOSUB 9490:Y%=21:GOSUB 9495 
+9431 DATA 169,1,83,3,167,6, 78,13, 156,26, 
57,53, 115, 106,230,212 PA 
+9432 REM B-FLAT (A-SHARP) FP 
+9433 XZ-9:GOSUB 9490:Y%=15:GOSUB 9495 
+9434 DATA 221,1,187,3,119,7,239,14,223,2 
9,199,59,124, 119, 248, 238 

+9435 REM C-FLAT 

+9436 XZ-10:G0SUB 9490 


92 AHOY! 


KJ 
FD 
GF 


HG 
HE 
LD 


CH 
EO 
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+9521 ME$(2,0)-"[c Ble[c B][c B]CD[c B]ce 
[c Blé[c B][c в]ср[с B]CA" ВА 
+9522 МҮ$(2,0)="6[3" "17 67 6[3" "]7 676" ІН 
+9523 MES(2, 1)" GFGGFCGFFOFGGFOGFF" DA 
+9524 MV$(2,1)=" S[3" "]4545[5" "]4545" 

+9525 ME$(2,2)-"[c B]DGGDCEF[c E][c B]D@G 


DCEF[c E]" HD 
+9526 MV$(2,2)="35 35353535 353535" HE 
+9529 REM PHRASE 3 JA 


+9530 MD$(3) = "100[12"1"]" DH 
+9531 МЕЅ(3,0)="[с В]@[с Bl[c B]OD[c B]CA 
[c вуна" ү" к 
+9532 MV$(3,0)="6(3" "|7 676[6" "]" 0J 
+9533 MES(3,1)-"[c B]FGAFGEFF[c B]FAFGF" л 
+9534 Мү$(3,1)="45 454545454545" 

+9535 ME$(3,2)-"[c B]DeADGCF[c Е][с SM 
GD BA 


+9536 MV$(3,2)="35 353535353535" MM 
CN +9539 REM PHRASE 4 JD 
+9540 MD$(4) = "[16"1"]" HA 


+9541 ME$(4,0)-"F[c B]C@C[3"@"JD[c B]C[5" 
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e" PF 
*9542 MV$(4,0)="6 7[6" "]67[5" "]" CF 
*9543 ME$(4,1)="[3"F"]AG[c B]AADGFAG[c B] 
AA" NK 
9544 MV$(4,1)-" 45454545 4 54545" LH 
*9545 ME$(4,2)="FDFFGEAF[c B][3"F"]GEAF" JH 
9546 MV$(4,2)="3535353534353535" DK 
9549 REM PHRASE 5 Jc 
*9550 MD$(5) = "[18"1"]" PO 
+9551 ME$(5,9)="CFG@G@@GAFG[7"@"]" EC 
*9552 MV$(5,0)="6[17" "]" 0G 
+9553 МЕ$(5,1)="@ВСЕСЕСЕ@ВЕЕССАЕСС" MA 
MV$(5,1)=" 4 54545 4 5453[3" "J" NN 
BI 


MV$(5,2)=" 4 54 534343 2 1" 
REM PHRASE 6 
MD$(6) = "100[7"1"]00[6"1"]" 


*9561 ME$(6,0)-"[4"F" ]GAFGG[ 4"F"]GAFGE" СІ 
*9562 MV$(6,0)="6[17" "]" BF 
9563 ME$(6,1)="CC@DCGD[4"C" JBaDCGDCC" DA 
*9564 MV$(6,1)="45 45354545 453545" XD 
1365 ME$(6,2)="FA@EAGBC[c B]FAGDAGBC[c В 
IK 
*9566 MV$(6,2)="34 34343434 343434" NC 
*9569 REM PHRASE 7 JE 
*9570 MD$(7) - "100[13"1"]" EP 
*9571 МЕ$(7,0) = "ЕӨРЕСАЕСЕС[ 3"@" (сі ВВ 
“9572 MV$(7,0)="6[12" "]7 " MJ 
*9573 ME$(7,1)="FC@ECDBCC@AG[c В]СЕ@" GE 
*9574 MV$(7,1)="45 454 5 4 5 " EL 


ME$(7,2)="FA@EADBC[c B]FFGRA[c Е]@" К 
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+9921 NEXT TA 
+9925 DIM FR$(LDZ,ESZ) CN 
*9928 REM CONVERT STRINGS TO USABLE FORM IG 
+9930 FOR РН-0 TO ESZ:FOR N=1 TO LEN(MD$( 
PH)) :FR$(N, PH) -"" BP 
+9935 FOR VC= TO EVZ:XZ-TBZ(ASC(MIDS(MES 
(PH, VC) ,N,1))) NG 
-9940 V$-MIDS(MVS(PH, VC) ,N, 1):IF v$o" " 
THEN YZ(VC)-21*VAL(V$) 
*9945 IF XZ<>0 THEN X%=X%+Y2(VC) DA 
+995 FR$(N,PH)-FR$(N, PH)4 CHRS(PIA2(X2,0)) 
:FR$(N, PH) -FR$(N, PH) *CHRS(PIZ(X2, 1)) 
*9955 NEXT 
-9960 IF EVZ«2 THEN FR$(N,PH)-FR$(N, E Д 
EFT$(FR$(N,PH) ,2) 
*9965 IF ЕУ2<1 THEN FR$(N,PH)=FR$(N, na 
EFT$(FR$(N,PH),2) FK 
*9970 PRINT "."; :NEXT:NEXT NI 
+9980 РН-0 HP 
*999() RETURN IM 
*19998 REM ROUTINE TO MAKE DATA STATEMENT 
S THROUGH FORCED SCREEN READS JC 
*20000 PRINT "[CLEAR][3"LDOWN]"]MAKING DA 
TA STATEMENTS WIPES OUT ALL THE" MI 
*20001 PRINT "LINES NOT DIRECTLY NEEDED." 
:PRINT:PRINT"[7" "]PROCEED? (Y OR N)" 
*20002 А-РЕЕК(203):ТЕ (А<>39) AND Coy 
THEN 20002 
“20003 IF A=39 THEN 80 
«20005 A=49152 
“20006 FOR РН=0 TO ES%:B=LEN(MD$(PH) ) :POK 


DP 
ТА 


ІМ 


к 


+9576 MV$(7,2)="34 343434343435 " Е A,B:A=A+1:PRINT ">"; :FOR Nel TO B XD 
+9579 REM PHRASE 8 Е «20007 POKE A, ASC(MID$(MD$(PH) ,N,1)):A=A+ 
+9580 MD$(8) = "[4"1"]00[12"1"]" GF 1:NEXT OF 
+9581 ME$(8,()="DC@C@[c B]AFGDF[3"G"]F[3" +20008 FOR М-1 TO B:FOR 1-1 TO 6:POKE A,A 
en)" OA SC(MID$(FR$(N,PH),I,1)):A=A+1 HN 
+9582 MV$(8,0)="7[4" "]6[8" "]7[3" "]" Ем >20009 NEXT:NEXT:NEXT:B=A-1:A=49152:C=940 
«9583 ME$(8,1)="[c B]CACA@@C@CFDC[c B]AGF 0: CR$-CHR$(13):D-4 

e" FG -20010 PRINT "[CLEAR][DOWN][DOWN]9350 REM 
+9584 MV$(8,1)="5[9" "]46 5 4" II  DELETED"CR$"9390 DATA"ESZ"[LEFT], "LDZCR 
«9585 ME$(8,2)="DCFCF@CAC[c B]F[c B]AGFGF $; IG 
@" FG -20011 PRINT "9002 REM DELETED"CR$; MÀ 
+9586 MV$(8,2)="54535 4 3435[4" "]3 " LP -20015 GOSUB 20085:1F D>8 THEN 20091 61 
+9898 REM SET UP CONVERSION TABLE КО -20020 GOSUB 20080:1F 0>8 THEN 20090 CB 
+9900 DIM TB2(255) EG -20025 IF A»-B THEN 20092 BE 
*9910 FOR I-0 TO 255:TBZ(I)-0:NEXT CE *20030 IF №0 THEN 20015 GE 
*9911 FOR I-65 TO 72:TBZ(1)-I-64:NEXT МВ *20035 GOTO 20020 HN 
*9912 FOR I-193 TO 199:TBZ(I)-I-178:NEXT EN “20040 PRINT "[CLEAR][DOWN][DOWN]"; :D-0:C 
+9913 FOR I-8 TO 14:READ A:TBZ(A)-I:NEXT AD R$=CHR$(13):GOTO 20025 LF 
*9914 REM NEXT LINE SAYS: 9915 DATA 176,1 


91,188,172,177,187,165 EB 
*9915 DATA 176,191,188,172,177,187,165 СВ 
-9916 REM (LINE 9915 IS DELETED BY "МАКЕ 
DATA' OPTION) LD 
*9919 REM FIND LONGEST PHRASE, AND DIM FR 
$ TO EXACT LENGTH NEEDED DM 
*9920 LDZ-0:FOR I=) TO ESZ:XZ-LEN(MD$(1)) 
:IF X%>LD% THEN LDZ-XZ 


ttp://www.oldgamesitalia.net 


«20041 PRINT "{CLEAR] [DOWN] [DOWN]"; :D=0:C 
R$-CHR$(13):GOTO 20020 ко 
+20079 REM ROUTINE TO PRINT FR$() DATA ST 
ATEMENT ON SCREEN 

*20080 PRINTC"DATA";:FORI-1TO 6:PRINTPEEK 
(A)" ШЕРТ), " ; :A=A¢1:NEXT:C=C+1 :D=D+1 :N=N 
л л 
+20081 PRINT CHR$(20)CR$; :RETURN OK 


DG 


FJ -20084 REM ROUTINE TO PRINT MD$() DATA ST 
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ATEMENT ON SCREEN 
20085 A$="":N=PEEK(A):A=A+1:FOR 1=1 TO N 
:A$=A$+CHR$(PEEK(A)) :А=А+1 :МЕХТ GB 
+20086 PRINT C"DATA"CHR$(34)A$CHR$(34)CR$ 
$:0=0+1:0=0+1 : RETURN CD 
“20088 REM SET UP LAST LINE TO EXECUTE FR 
ОМ SCREEN BM 
*20090 PRINT "A="A"(LEFT]:B="B"(LEFT]:C=" 
C"[LEFT]:Ne"N"[LEFT]:GOTO 20040"CR$; :GOT 
0 20095 
«20091 PRINT "A="A"(LEFT]:B="B"(LEFT]:C=" 
C"{LEFT]:N="N"[LEFT]:GOTO 29041"CR$; :GOT 
0 20095 FG 
*20092 PRINT "C="C-1":GOTO 20100"CR$; :GOT 
0 20095 ON 
*20094 REM LOAD KEYBOARD BUFFER WITH CARR 
ТАСЕ RETURNS AND GO READ SCREEN Lo 
*20095 FOR І-631 TO 640:POKE I,13:NEXT:PO 
КЕ 198,10:PRINT "[НОМЕ]"; :END OE 
SUE А-РЕЕК(43)%256%РЕЕК(44): PRINT "(CL ES 
EAR]" 
*20105 B=PEEK(A+2)+256*PEEK(A+3) : A-PEEK(A 


IJ 


NP 


)+256*PEEK(A+1) EB 
“20106 PRINT "[HOME]"A" "B" "C LA 
“20110 IF В=С THEN 20120 GK 
*20115 GOTO 20105 IH 
*20120 POKE A,0:POKE А+1,0:А=А+2 OH 
*20125 B=INT(A/256) :C=A-256*B FE 


“20130 PRINT "[CLEAR] [DOWN ] [DOWN ]150":PRI 
NT "83" ІІ 
+20135 PRINT "POKEA5, "C"[LEFT] : POKEA6 , "В" 
[LEFT] :POKE47, "CULLÉFT] : POKEAB "B" [LEFT] 


net 


+85 PRINT "OR Q TO QUIT" 
+100 IF РЕЕК(653)<>0 THEN GOSUB 69:GOTO 1 


FP 


06 ND 
“110 IF РЕЕК(203)=62 THEN POKE 198,0:SYS 
65126 HG 
“190 GOTO 100 СЕ 
*8997 КЕМ JD 
«8998 REM SET UP SOUND AND LOAD SONG MN 
“8999 REM JD 


9000 F$="F":1=0:N=0: VC=0:M=848 :ММ=823:ВЕ 


МОМ & MM PUT ML IN CASSETTE BUFFER JG 
*9001 PH-0:DIM G2(2),AD(2) ,DUZ(9) ,AK2(2) , 
DYZ(2),SN2(2),REZ(2),WFZ(2),PW2(2,1) ^ DI 


*9007 REM JD 
“9008 REM OPEN SONG FILE & GET % OF PHRAS 


ES AND # OF VOICES JJ 
“9009 REM JD 
+9010 OPEN 2,8,2,"0:SONG #1,S,R" OM 
*9015 INPUT#2,ES%Z,EV2,LD% JC 
“9017 REM JD 
“9018 REM DIMENSION KEY VARIABLES NH 
*9019 REM JD 
+9020 DIM FR$(LDZ,ES2) ,MD$(ES2) сс 
*9027 REM JD 
*9028 REM LOAD THE REMAINDER OF THE VARIA 

BLES FROM THE SONG FILE GI 
“9029 REM JD 
+9030 FOR I=) TO 2:INPUT£2,GZ(I):NEXT JO 


+9031 FOR I=) TO 2:INPUT#2, AKZ(I), RD, 
SNZ(I), REZ(I) 

+9032 FOR N= TO 1:INPUTA2, PWZ(I,N): wee: ^ 
NEXT JM 


:POKEA9, "C ЕН +9033 FOR I= TO 9:INPUT/2,DUZ(I):NEXT МР 
“20140 PRINT "POKESO,"B"[LEFT]:GOTO 10" NJ +9034 FOR PH= TO ESZ:INPUT£2,MD$ (PH) : FOR 
*20145 FOR І-631 TO 640:POKE I,13:NEXT:PO №1 TO LEN(MD$(PH)) BL 
KE 198,10:PRINT "[HOME]"; :END OE >9035 FOR І-1 TO 6:GET#2,A$,B$ PJ 

*9036 IF A$="" THEN A$=CHR$(0) OE 

SONG LOADER *9037 FR$(N,PH)=FR$(N,PH)+A$:NEXT:NEXT:NE 
“1 REM "SONG LOADER" NM XT JE 
*3 REM THIS IS AN EXAMPLE OF HOW TO LOAD *9040 CLOSE 2 NC 

AND USE A SONG STORED ON DISK JB >9041 REM JD 
*5 REM USING THE PROGRAM "SONG MAKER" PD +9042 REM SET UP ENVELOPES BM 
*6 REM JD -9043 REM JD 
*7 REM LINE 10 AND LINE 9000 MUST EXECUTE *9044 FOR І-0 TO 2:4D(I)-54277*7*I:NEXT IL 

BEFORE ANYTHING ELSE IN YOUR PROGRAM FD -9045 FOR I= TO 2:POKE AD(I),AKZ(I) OR D 
*9 REM JD YZ(I) DM 
“10 GOSUB 9900:GOTO 80 ІВ +9046 POKE Ар(1)+1,5№(1) OR REZ(I):NEXT DK 
“60 FOR РН=0 TO ESZ:FOR М-1 TO LEN(MD$(PH “9047 REM JD 

2):SYS MM MC +9048 REM SET PULSE WIDTHS AC 
*62 F$-FR$(N,PH) DG +9049 REM JD 
*65 SYS M “9050 FOR І-0 TO 2:VC-5427441*7:FOR №0 T 
*67 FOR I= TO DUZ(VAL(MID$(MD$(PH) ,N,1)) 01 OB 

):NEXT JB +9051 POKE VC+N,PW2(I,N):NEXT:NEXT NG 
*68 REM SYS MM:REM STACCATO NOTES GA +9066 REM JD 
<69 NEXT:NEXT EF +9067 REM SET FILTER AND VOLUME BN 
“70 SYS MM:RETURN А0 +9068 REM FILTER FREQUENCY DE 
+80 PRINT "[CLEAR]WHEN SONG ENDS, PRESS": +9069 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
PRINT:PRINT "SHIFT TO REPEAT SONG" PC -255) YZ PA 


94 АНОҮ! 


"9070 Х%-3:Ү%-150 

“9071 POKE 54293,X%:POKE 54294,Y2 

“9072 REM FILTER ON? 

*9073 REM VOICE 1 ON-1; 2 ON=2; 3 ON-4; 1 
82 ON=3; 2&3 ON=6; ALL ON=7 

*9074 Х4-0) 

*9075 REM FILTER RESONANCE CE 
*9076 REM PEAK VOLUME (0-LOW, 15-HIGH) FH 


*9077 Yz-14 JL 
+9078 Y%=Y2*16:POKE 54295,X% OR YZ MG 
+9079 REM SELECT FILTER TYPE CP 


*9080 REM LOW-PASS-1;BAND-PASS-2;HIGH-PAS 


S=4;LO-BAND=3 ; HI-BAND=6 ; ALL=7 MH 

9081 X%=1 FP 
“9082 XZ-X2*16 LC 
*9083 REM JD 
*9084 REM SELECT OVERALL VOLUME FJ 
*9085 REM 15-HIGH, OeLOW PB 
*9086 Y2-15 JK 
+9087 POKE 54296,X% OR YZ HN 
*9197 REM JD 
*9198 REM MACHINE LANGUAGE ROUTINE AT M CE 
*9199 REM JD 
*9218 REM FIND ADDRESS OF F$ AND PUT IT I 


N ZERO PAGE AT 139, 140 
*9219 REM 
*9220 N-PEEK(45)4256*PEEK(46)43:Y2-N/256: 
XX-N-Y2*256 
*9221 POKE M,173:POKE M+1,X%:POKE M42,Y2: 
N=N+1: YZ=N/256 а YZ-N-Y7*256 AN 
*9222 POKE M+3,133:POKE M+4,251:POKE M45, 
173:POKE M+6,X%:POKE M+7,Y% 

+9223 POKE M+8,133:POKE М+9,252:РОКЕ М+10 
›160:РОКЕ М+11,0 

-9224 POKE M+12,162:POKE М+13,0 

+9228 КЕМ 

9229 REM СЕТ EACH PITCH FROM F$ AND PUT 
IT IN FREQUENCY REGISTER CH 
*9230 FOR I=M+14 TO M+54 STEP 8:POKE 1,17 
7:РОКЕ 141,251 XF 
*9231 РОКЕ 1+2,157:РОКЕ 1+3,0:РОКЕ 1+4,21 

2 


МА 


GG 
JD 


“9232 POKE L45,200:POKE 146,162:READ А:РО 


КЕ Le7,A:NEXT ІЕ 
“9233 DATA 1,7,8,14,15,4 АК 
*9238 ВЕМ JD 
*9239 REM GATE EACH SOUND OPEN MC 
*9240 N-0:FOR I=M+59 TO M+71 STEP 6 BJ 


*9241 POKE I,173:A-MM-34N:12-4/256:X2-A-2 
56*Y%:POKE L-l,XZ:POKE I42,Y2 PO 

*9242 POKE 1+3,141:КЕАр А:РОКЕ 1+4,A:POKE 
145,212:N-N1 : NEXT 

*9243 DATA 4,11,18 

*9247 REM 

*9248 REM GARBAGE COLLECTION 

“9250 FOR І-М%77 TO M+90:READ А:РОКЕ I,A: 
NEXT CE 

*9255 DATA 164,52,165,51,105,6,144,1,200, 


PB 
JD 
ME 


133,51,132,52,96 BN 
*9257 REM JD 
*9258 REM GATE-OFF ML ROUTINE AT MM LA 
*9259 REM JD 
*9260 FOR І-ММ TO ММ+16 STEP 8 66 


“9261 POKE I,173:Y%=3:X%=34+(I-MM) /8:РОКЕ 
I+1,X%:POKE 1+2,Y%:REM USES 820-822 

*9262 POKE 1+3,41:РОКЕ 14,254 DI 

*9263 POKE I45,141:READ A:POKE I46,A:POKE 


147,212:NEXT:POKE MM+24,96 KD 
*9264 DATA 4,11,18 PB 
*9267 REM JD 
*9268 REM SET WAVEFORMS WITH GATES OFF МК 


*9269 REM STORED AT 820-822--LINE 9261 RE 
QUIRES THIS (820-HEX 03 34) BO 
*9270 POKE 820,6%(0):РОКЕ 821,G2(1):POKE 
822,G2(2):SYS ММ OB 
*9280 РН-0 
“9290 RETURN 


НР 
ІМ 


SUMMERTIME 
“1 REM "SUMMERTIME" ON 
*3 REM ADD THESE LINES TO "SONG MAKER" TO 
CREATE THE SONG "SUMMERTIME" CF 
*5 REM FROM "PORGY AND BESS" BY GEORGE AN 
D IRA GERSHWIN 
*7 REM FIRST DELETE ALL "SONG MAKER" LINE 
S ABOVE 9500 AND BELOW 9900 
*9001 PH=0:ES%=3:DIM MD$(ES2),G2(2),AD(2) 


‚ї2(2) OL 
“9010 АК2(0)-2:АК2(1)-0:АК%2(2)-4 LN 
LP 
LN 
cL 
"9070 WFZ(0)216:WF2(1)232:WFZ2(2)264 EI 
*9075 GZ(0)-WFZ(0)OR 7:G%(1)=WF%(1) OR 1: 
GZ(2)-WF2(2) OR 1 LC 
“9080 PWZ(0,0)2200: PWZ(0,1)212 BP 
*9081 PW2(1,0)=200:PW2(1,1)=12 HL 
*9082 PW2(2,0)=200:PW2(2,1)=3 KF 
*9105 DATA 24,128,192,256,384,512,640,768 
,896,1024 PM 
"9300 X2-3:Y2-150 GF 
“9310 Х4-0 ЕМ 
+9320 YZ-14 JL 
*9330 Х4-1 FP 
*9340 YZ-15:POKE 54296,Х% OR YZ EK 
*9345 EVZ-0 KC 
*9499 REM PHRASE 0 IP 
*9500 MD$(0) = "0420093041[3"3" |5082" BP 


*9501 МЕ$(0,0)="[с ЕЈЕСЕ[с E]EG[s C]DCDEC 
АӨЕ@" IM 


+9502 MV$(0,0)-"4[12" "]3[3" "]" OL 
“9509 REM PHRASE 1 10 
+9510 MD$(1) = "0430280[5"3"]9[6"0"]31" АС 


“9511 МЕ$(1, 0)-"ЕЕСІв C]DD[c C]CACACBAGFE 


рове" ЕВ 
+9512 MV$(1,0)-"4[7" "]34343[6" "]2 " JJ 
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JB 
GD 


+9519 REM PHRASE 2 
+9520 MD$(2) = "04202406420[3"3" ]5082" 

+9521 ME$(2,0)-"[c E]EC[c E]EE[c E]EDC[s 
C]DECA[c Е]Е@" IE 
+9522 MV$(2,0)="4[13" "]3[3" "]" DD 
+9529 REM PHRASE 3 JA 
+9530 MD$(3) = "[4"4"]360[4"5" 09[4"0" ]2" FE 
+9531 ME$(3,0)-"EGEGAC[c EJEDCCBAF[s F]G[ 

s G]A" DA 
+9532 MV$(3,0)="3[4" "]A[S" "Із S[4" "]" Сс 


VIC MUSIC 
*l REM "VIC MUSIC" CP 


“10 MD$z"Q" :M1$2MD$ :M2$=MD$ :M3$-MD$ : GOSUB 


9000 PE 
+10) SYS SR EF 
+190 END IC 
+9000 SR-828 PN 
*9005 POKE 170,50 : EG 
“9006 POKE 659,1 : BI 
+9007 POKE 660,200:REM DECAY BO 
“9008 POKE 661,15-9 :REM SUSTAIN VOLUME IN 
*9009 POKE 662,10 :REM RELEASE MF 
*9010 FOR І-663 TO 676:READ A:POKE I,A:NE 
XT PC 


+9011 DATA 166,169,169,5,133,171,198,171, 
208,252,202,208,245,96 EA 
*9015 FOR І-677 TO 682:READ A:POKE I,A:NE 
XT 
+9016 DATA 202,234,234,208,251,96 
“9020 FOR І-684 TO 767:READ A:POKE I,A:NE 
XT PC 
*9025 DATA 32,151,2,136,208,250,96 FG 
*9030 DATA 173,14,144,41,240,5,150,141,14 
5144,96 CJ 
*9035 DATA 160,15,230,150,32,179,2,174,14 
7,2,32,165,2,136,208,242 PI 
“9036 DATA 162,1 ,32,153,2 
“9037 DATA 172,149,2,198,150,32,179,2,174 
,148,2,32,165,2,136,208,242 АЕ 
+9038 DATA 166,170,134,169,164,149,32,172 

J 


IG 
NO 


BJ 


, 
"9039 DATA 164,150,240,14,198,150,32,179, 
2,174,150,2,32,165,2,136,208,242,96 
02:29 FOR I-SR TO SR+89:READ A:POKE I,A:N 
*9050 DATA 169,0,133,150,133,147,160,2,17 
7,45,133,148 

*9051 DATA 200,177,45,133,155,200,177,45, 
133,156 DE 
“9052 DATA 160,10,177,45,133,158,200,177, 


АР 
LD 


EA 


45,133,159 cN 
*9053 DATA 160,17,177,45,133,163,200,177, 
45,133,164 MG 


*9054 DATA 160,24,177,45,133,167,200,177, 
45,133,168 
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+9055 DATA 164,147,177,155,133,149 BC 
+9056 DATA 177,158,141,10,144 OA 
+9057 DATA 177,163,141,11,144 LP 


+9058 DATA 177,167,141,12,144 FC 
+9059 DATA 32,190,2,169,0,133,150,230,147 
, 198,148, 208,222,96 DO 


“9100 SL=48:REM # OF NOTES LF 
“9110 FOR I=1 TO SL:READ B:B=B+128:IF B>2 

55 THEN B= PB 
“9115 M3$=M3$+CHR$(B) :NEXT MG 


+9120 FOR І-1 TO SL:M1$=M1$4CHR$(0):NEXT JH 
+9125 FOR 1-1 TO SL:MD$=MD$+CHR$(25) :NEXT FE 
+9130 M2$=M1$ AE 
+9200 DATA 87,81,79,67,67,47,67,67,79,67, 
79,87 CD 
+9210 DATA 81,79,81,73,73,47,73,73,81,73, 
81,91 HH 
+9220 DATA 87,81,79,67,67,47,67,67,79,67, 
79,87 CD 
*9230 DATA 81,79,81,79,81,73,87,81,79,67, 
67,67 AC 
+9990 RETURN 


F А S н 
FROM PAGE 77 


This program requires use of an assembler. 
See introductory article for explanation. 


IM 


1* 

2 * FLASH 

3* 

4 ORG 58000 
5 ЕСІ, EQU 13 

6 BUFLEN EQU 40 

7 FILLCH EQU $20 

8 CHROUT EQU $FFD2 

9 CLRSCR EQU 147 

10 ж 

11 JMP START 
12* 

13 ТЕХТ ASC — 'FLASH: C64 OWNER B 
REAKS MACHINE CODE!" 

14 DFB 13 

15 * 

16 * CLEAR SCREEN 

75% 

18 START JSR CLEAR 
19/7 

20 * CLEAR TEXT BUFFER 
21 * 
22 LDA #FILLCH 
23 LDX #BUFLEN 
24 STUFF DEX 
25 STA TXTBUF,X 
26 BNE STUFF 
24k 


28 Ж STORE MESSAGE IN BUFFER 


29 * 

30 LDX 
31 10071 LDA 
32 STA 
33 СР 
34 BEQ 
35 INX 
36 CPX 
37 BCC 
38 ж 


41 PRINT LDX 


42 LOOP2 LDA 
43 PHA 
4h JSR 
45 PLA 
46 CMP 
47 BNE 
48 JMP 
49 NEXT INX 
50 СРХ 
51 BCC 
52 * 

53 AGAIN JSR 
54 JSR 
55 JSR 
56 ЈМР 
57 * 


58 * ROUTINE TO 
* 


6) CLEAR LDA 
61 JSR 
62 RTS 
63 * 


64 * DELAY LOOP 
ж 


66 DELAY LDX 
67 XLOOP LDY 
68 YLOOP DEY 


69 NOP 
70 NOP 
71 МОР 
72 BNE 
73 DEX 
74 BNE 
75 RTS 
76 * 

77 TXTBUF 05 
78 * 


E ( 


ЕВОМ РАСЕ 73 


#0 
ТЕХТ,Х 
TXTBUF,X 
fEOL 
PRINT 


#BUFLEN 
100Р1 


39 Ж PRINT MESSAGE 
ж 


#0 
TXTBUF,X 


CHROUT 
$EOL 
NEXT 
AGAIN 


#BUFLEN 
LOOP2 


DELAY 
CLEAR 
DELAY 
PRINT 
CLEAR SCREEN 


#CLRSCR 
CHROUT 


#$ЕЕ 
#$ЕЕ 


YLOOP 
XLOOP 


BUFLEN 


с 


http: 
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+1 REM BEFORE LOADING POKEA4,64:POKE256*6 


4,0: NEW 


*2 SO = PEEK(46)*256+PEEK(45) 
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FM 
BF 


еб 
*3 51 = 50-210:52 = 80-150 СЕ 
9 PRINT"[CLEAR]""IN ADDITION TO NORMAL C 
URSOR MOVEMENTS," РС 
“10 PRINT"THE FOLLOWING CODES ARE USED: F 
-FAST" HF 
+11 PRINT"SCAN; S-SLOW SCAN; D-DRAW; E-ER 
ASE" PE 


12 PRINT"I-INITIAL POINT OF SLANTED LINE 
: L 


+13 PRINT"L-LINE BACK TO INITIAL POINT; F 
1-" 


NJ 
*14 PRINT"DUMP SCREEN IMAGE TO PRINTER" LK 
*15 PRINT"F7-CLEAR SCREEN" DH 
ne INPUT "DO YOU WANT TO PLAY SQUARES";A 
*17 SYS 51 СЕ 
“18 X=0:Y=0:SV=0:BY=8192: F=1:D=0: E=0:GOSU 
В 1000 ВН 
19 IF ANS="Y" THEN GOSUB 200 HJ 
*20 GET М$:ТЕМ$="" THEN 20 FJ 
*21 IF M$-CHR$(136) THEN 17 KH 
*22 IF M$="F" THEN F=5:GOTO 20 АЕ 
«24 IF M$="S" THEN F=1:GOTO 20 HP. 


+25 IF MS="D" THEN D-NOT D:E=0:GOTO 20 HD 
+26 IF M$-"E" THEN E-NOT E:D-0:GOTO20 ВМ 
-27 IF M$-"I" THEN XI-X:YI-Y:GOTO 20 AJ 
+28 IF MS="L" THEN 100 ІН 
«29 ТЕ MS=CHR$(133) THEN 1100 PN 
30 IF M$-"[UP]" THEN Y=Y-F:IF Y< THEN m 
J Е 
+35 IF MS="[DOWN]" THEN Y=Y+F:IF Ү>199 TH 


EN Y-199 NG 
*40 IF M$="(RIGHT]" THEN X=X+F:IF X5319 T 
HEN Х-319 DC 
*45 IF M$="[LEFT]" THEN X=X-F:IF Х<0 THEN 
Хай KG 
+50 GOSUB 1000:60Т0 20 НН 
“100 DX-X-XI : DY-Y-YI EM 
*110 M=DY/DX : B-YI-M*XI AM 
*115 SP - (SGN(XI-X))*F : XF-X FA 
“120 FOR X-XF TO XI STEP SP LD 
4130 Y = INT(M*X+B) FG 
+140 GOSUB 1000 FO 
+150 NEXT IA 
*160 D-0:GOTO 20 EG 
“200 D=1:FOR Y = 0 TO 199 STEP 21 HN. 
“210 FOR X = 0 TO 249 STEP 25 DH 
*220 GOSUB 1000 FO. 
+230 NEXTX : NEXTY PL 
*240 X = 128 : Y = 95 : GOSUB 1000 BP 
*250 D= : RETURN PA 
*1000 CH=INT(X/8):RO=INT(Y/8):LN=YAND7 FK 
"1010 IF D=) THEN POKE BY,SV FO 
*1015 IF E=) THEN 1020 со 


*1017 2 = SV AND (2[UPARROW]BT):POKE BY,S 
V-Z ЕЕ 
+1020 BY-81924R0*3204CH*84LN : BT-7-( XAND7) E 
+1030 SV = PEEK(BY) 
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*1040 POKE BY,SV OR(2[UPARROW]BT) LK C088: CO A9 Аб 8D 00 DO A9 FD 9F 
*1050 RETURN IM C090: 8D F8 07 A9 00 8D 20 C7 3D 
*1100 OPEN 4,4,5:CMD4 KJ C098: 8D 21 C7 8D FF C6 8D 10 01 
*1110 PRINT CHR$(27)CHR$(51)CHR$(16) EC COAG: DO 8D 26 C7 AD ТЕ DO A9 34 
*1120 POKE 251,0:POKE 252,32 ко COA8: 01 8D 25 C7 А9 03 8р 24 82 
“1130 FOR 1-0 TO 7:POKE 204841, 2[UPARROW] COBO: C7 8D 1E C7 8D 1D C7 A9 08 
I:NEXT FP COB8: 05 8D 1C C7 A9 30 8D 2B СІ 
*1140 FOR 1-0 TO 24:PRINT CHR$(27)CHR$(76 COCO: C7 A9 06 8D 2D C7 8D 2C 74 
)CHR$(250)CHR$(2) ; ТА С0С8: C7 A9 02 8D 2E C7 А9 20 89 
+1150 SYS 52 СЕ соро: 8D 28 C7 20 B2 C4 20 E4 EA 
*1160 PRINT CHR$(245)CHR$(10); PC С008: FF C9 8C FO 45 C9 88 FO A8 
*1170 NEXT L MO COEO: 6F AD 8D 02 C9 01 FO EE 38 
1180 PRINT#4 ,CHR$(27)"@":PRINT#4, : CLOSEA GL COE8: AD 1Е DO 29 01 DO 64 CE B4 
+1190 END ІС COFG: 29 C7 FO АЕ CE 2A C7 FO D3 
COF8: 54 AD 00 DC 49 FF 8D FD АС 

Machine code to be appended to ETCH С100: C6 29 10 C9 10 ҒО 36 CE CF 

(see article for instructions) C108: 27 C7 DO CA AD 28 C7 8D BD 

169 24 141 24 208 169 32 13 17 208 141 17 С110: 27 C7 Ар FD C6 29 OF C9 73 
208 169 32 133 252 160 0 132 251 169 0 145 C118: 04 FO 67 C9 08 FO 37 4C BA 
251 200 208 251 166 252 232 134 252 224 64 C120: 06 CO A9 06 8D 21 ро А9 90 
208 242 169 4 133 252 132 251 169 1 145 C128: GE 8D 20 DO 8р 86 02 А9 74 


251 200 208 251 166 252 232 134 252 224 8 
208 242 96 162 0 169 0 32 210 255 232 224 
120 208 246 169 245 32 210 255 169 0 141 8 
8 141 9 8 141 10 8 141 11 8 169 7 56 237 9 
8 170 189 0 8 141 12 8 169 7 56 237 10 8 
170 189 0 8 141 13 8 172 10 8 177 251 45 
12 8 240 10 173 13 8 24 109 11 8 141 11 8 
174 10 8 232 142 10 8 224 8 208 212 173 11 
8 32 210 255 32 210 255 169 0 141 10 8 141 
11 8 174 9 8 232 142 9 8 224 8 208 171 169 
0 141 9 8 169 8 24 101 251 133 251 144 5 
166 252 232 134 252 174 8 8 232 1428 8 
224 40 208 141 96 


FROM PAGE 47 

First Byte: С000 Last Byte: СУІЕ Sys to Start: 49152 
C000: А9 ОЕ 8D 18 D4 20 DF C2 F5 
C008: 20 27 C3 А9 00 8D 22 C7 34 
C010: 8D 23 C7 20 44 E5 A9 00 7C 
C018: АО 17 99 00 D4 88 DOH ҒА 92 
C020: AG 26 A9 ОА 8D FE C6 А9 97 
C028: 00 85 FC A9 D8 85 FD A2 53 
C030: 16 AD FE Сб 91 FC 18 А5 06 
C938: ЕС 69 28 85 ЕС А5 FD 69 56 
C040: 00 85 FD CA DO ЕВ CE FE 19 
C048: Сб AD FE C6 C9 01 FO OC 4A 
C050: 88 88 00 D3 8C 00 D8 84 EF 
С058: FE 4C 64 СО A9 0А 8D FE 09 
C060: C6 4C 50 CO А2 78 А9 OB 54 
C068: 9D 6F DB А9 А0 9D 6F 07 АҒ 
C070: СА DO ЕЗ 18 A2 16 AN ОЕ 7F 
C078: 20 FO FF AQ 00 B9 66 C6 11 


: 00 8D 15 DO 8D 18 D4 20 ЗЕ 
44 Е5 20 74 A4 АС ВО Cl 5А 
4C 82 Cl AD 15 00 29 02 8F 
FO АА 4C D1 Cl 4C ОЕ C2 EN 
4C 13 С0 4C C9 C4 19 FD F2 
8D F8 07 EE 00 DO FO ОА А0 
AD 00 DO C9 45 FO OE 4C 39 
D6 С0 AD 10 00 09 01 8D 26 
10 DO 4C D6 CO AD 10 DO СЗ 
29 01 FO 03 CE 00 DO 4C 82 
D6 CO A9 FE 8D F8 07 CE 1D 
00 DO AD 00 DO C9 FF FO 92 
07 C9 18 FO ОЕ 4C D6 CO 5C 
AD 10 DO 29 02 8D 10 ро CO 
4C D6 Со AD 10 DO 29 01 3D 
ро 03 ЕЕ 00 DO 4C D6 CH 20 
AD 15 DO C9 03 FO 17 А9 C2 
03 8D 15 DO AD 00 00 29 D6 
F8 8D 02 DO AD 10 DO ОА B2 
6D 10 00 8D 10 ро АС 07 DB 
Cl A9 12 8D 29 C7 CE 03 9E 
DO AD 03 DO C9 28 BO 15 E2 
A9 01 8D 15 00 А9 BE 8D F4 
03 DO AD 10 DO 29 01 8D 03 
10 00 4C D6 Со 20 9C C3 36 
4C F4 Со 20 97 EO А5 8E C7 
29 ОЕ 8D FE C6 А5 8D 29 E7 
03 6D FE C6 0A 60 AE FF 57 
C6 FO 22 AD 2B C7 8D 2A 42 
C7 A5 FE 85 FC 38 E9 28 51 
85 FE А5 FF 85 FD Е9 00 B7 
85 FF А0 26 20 ВЕ C3 CE B6 
FF C6 АС F9 CO CE 2C C7 СО 
DO ОҒ AD 2D C7 8D 2C C7 3C 


C080: ЕО 07 20 02 FF C8 4C 7D FD C240: 20 FB Cl A8 A9 51 99 00 5B 
98 AHOY! 
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C248: 04 A9 48 85 FE A9 07 85 F8 
C250: FF AQ 26 Bl FE C9 20 FO А2 
C258: 1E A9 20 91 FE AD 21 C7 67 
C260: FO 15 38 AD 20 C7 ED 26 48 
C268: C7 8D 20 C7 AD 21 C7 E9 26 
C270: 00 8D 21 C7 4C 7B C2 88 F9 
C278: 88 DO D8 А2 15 ВЕ FF C6 B7 
C280: 4C F9 CO 38 AD 03 DO E9 2B 
C288: 32 ДА 4A 4A 8D 30 C7 ОА 29 
C290: 0А 6D 30 C7 A2 00 8E 30 61 
C298: C7 ОА OA 2E 30 C7 ОА 2E D2 
C240: 30 C7 85 59 AD 30 C7 69 86 
C248: 04 85 5A AD 10 DO 4A 8D F2 
C2B0: 32 C7 38 AD 02 DO Е9 14 61 
C2B8: 8D 31 C7 AD 32 C7 E9 00 ро 
C2C0: 4A 6E 31 C7 AD 31 C7 4A 63 
C2C8: 5А 65 59 85 59 А5 5A 69 1А 
C200: 00 85 5А 60 A9 FF 8D 00 48 
C2D8: C7 CE 00 C7 DO ЕВ 60 Аб 05 
C2E0: FF C8 B9 66 C5 99 00 ЗЕ 68 
C2E8: CO FF DO F5 AQ Аб 8D 00 4E 
C2F0: 00 A9 CD 8D 01 DO A9 03 45 
C2F8: 8D 1C 00 A9 06 8D 27 00 АВ 
C300: А9 08 8D 25 DO 49 01 8D 6D 
C308: 15 00 8D 26 00 A9 FD 8D А7 
C310: F8 07 A9 FF 8D F9 07 A9 F1 
C318: 64 8D 02 DO A9 CO 8D 03 D7 
C320: DO A9 07 8D 28 DO 60 20 АВ 
C328: 44 E5 A9 17 8D 18 00 A9 33 


: 21 C7 69 00 8D 21 C7 20 01 

6F C4 20 26 C4 60 AD 21 8E 
C7 CD 1D C7 00 40 AC 25 85 
C7 B9 03 C7 8D 1C C7 18 06 
AD 1D C7 6D 1E C7 8D 1D C8 
C7 EE 1E C7 EE 26 C7 EE A8 
25 C7 20 9C C4 CE 2B C7 78 


C330: 00 8D 20 DO 8D 21 ро A2 DO C500: 20 86 C4 AD 1F DO AE 24 DB 
C338: 06 АО ОВ 18 20 FO FF AQ ВЗ C508: C7 FO ОЕ 4C D6 CO A9 20 7C 
C340: 00 B9 C9 C6 FO 07 20 D2 75 C510: A0 78 99 F7 06 88 DO FA 15 
C348: FF C8 4C 41 C3 A2 08 АО AD C518: 60 20 6F C4 AD 21 C7 CD 31 
C350: 0С 18 20 FO FF АО 00 B9 DF C520: 23 C7 90 19 00 08 AD 20 5B 
C358: DB C6 FO 07 20 D2 FF C8 АЕ C528: C7 CD 22 C7 90 ОЕ AD 20 15 
C360: 4C 57 C3 А2 ОА АО ОА 18 37 C530: C7 8D 22 C7 AD 21 C7 8D 93 
C368: 20 FO FF AQ 00 B9 EA C6 85 C538: 23 C7 20 B2 C4 20 Ей FF BF 
C370: ЕО 07 20 D2 FF C8 4C 6D DD C540: FO FB C9 8C FO 03 4C 13 D6 
C378: C3 A2 05 АО FF 20 04 C2 3C C548: CO 4C 22 Cl A9 5F 8D 00 CF 
C380: 88 DO ҒА СА DO F5 20 44 СА C559: D4 A9 07 8р 01 D4 A9 81 64 
C388: E5 А9 15 8D 18 00 60 Bl B5 C558: 8D 04 D4 A9 ЗЕ 8D 05 D4 OF 
C390: FE 91 FC A9 20 91 FE 88 01 C560: А9 08 8D 06 D4 60 00 30 OB 
C398: 88 ро F4 60 20 83 C2 А2 50 C568: 00 00 00 00 0С 10 CO 00 45 
СЗАО: 00 Al 59 C9 20 FO 07 A9 27 €570: 00 00 C2 22 0С 00 10 00 71 
C348: 20 81 59 4C BA C3 А0 01 10 C578: 04 20 40 82 АА 08 00 B8 СА 
C3B0: Bl 59 C9 20 FO 3C A9 20 9C C580: 00 2A FE АЗ 00 B8 00 82 88 
C3B8: 91 59 A9 FC 8D F9 07 A9 82 C588: АА 08 04 20 40 00 10 00 AF 
С3С0: 20 81 59 20 ЕЗ СЗ А9 05 42 С590: C2 22 ОС 00 00 00 OC 20 AD 
C3C8: 8D 2F C7 20 D4 C2 СЕ 2F 03 C598: CO 00 00 00 00 10 00 00 69 
C3D0: C7 ро F8 A9 80 8D 04 04 F2 C5A0: 00 00 00 30 00 00 AO OC 7D 
C3D8: А9 01 8D 15 DO Ар 10 DO 85 C548: 00 2А OF 00 2А 83 CO ОА SA 
C3E0: 29 01 8р 10 00 A9 FF 8D BO С5В0: 90 DO ОА 94 54 02 DO 14 EB 
СЗЕ8: F9 07 A9 CO 8D 03 00 20 D5 C5B8: 02 FC 04 02 80 04 ОА АА F6 
C3F0: OD C4 60 A9 3C 8D 00 D4 6B C5C0: 94 2А АА 94 2A АА 80 2A ЗЕ 
C3F8: A9 C8 8D 01 04 A9 81 8D 87 C5C8: A2 80 2A АО 80 16 А0 80 6E 
C400: 04 D4 A9 8E 8D 05 04 A9 22 C5D0: 1А AQ 00 ОА А0 00 OA AO EO 
C408: D5 8D 06 D4 60 18 AD 20 8C C5D8: 00 OA AO 00 ОА АО 00 ОА 38 


C410: C7 6D 1C C7 8D 20 C7 Ар 4C С5Е0: А0 00 2A А8 00 10 00 30 94 


http: 
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C5E8: 2A 00 
C5F0: 05 А0 
C5F8: 10 ЗЕ 
C600: А0 16 
C608: ВА A8 
C610: 00 0A 
C618: А0 00 
C620: OA AD 
C628: 00 00 
C630: 7E 40 
C638: 01 6E 
C640: 00 00 
C648: 18 00 
C650: 00 38 
C658: 00 00 
C660: 00 00 
C668: 49 
C670: 20 
C678: 20 
C680: 20 
C688: 20 
C690: 4C 
C698: 48 
C640: 1D 
C648: 20 
С6В0: 20 
C6B8: 20 
C6C0: 20 
C6C8: 9E 
C6D0: cl 
C6D8: cD 
С6Е0: 42 
C6E8: 00 
С6Е0: 48 
C6F8: 39 
C700: 00 
С708: 4C 
C710: 20 
C718: 


Auto-Append 


FROM PAGE 62 
Bug Repellent line codes listed to right of program lines are for C-64 
only! VIC 20 Bug Repellent line codes are listed at end of program. 


FO 
15 
80 
AA 
02 
AS 
OA 
00 
55 
01 
40 
АЕ 
00 
00 
1С 
00 
5А 
49 
or 
20 
20 
20 
20 
30 
20 
98 
31 
81 
D4 
D2 
00 
20 
c3 
54 
38 
00 
79 
48 
C8 


АВ 
17 
10 
A8 
OA 


03 Cl 
14 
80 
АА 
02 
AQ 
OA 
10 
69 
01 
00 
24 


А8 
07 


OF 
80 
AA 
02 
94 
OA 
00 
14 
01 
40 
99 
00 
00 
18 
00 
97 
АР 
20 
45 
45 
56 
49 
1D 


29 
ЕЕ 
24 
61 
90 


51 КЕМ О 10 
“2 REM* Е 00 
+3 REM* — AUTO-APPEND * PN 
+4 REM* * 00 
+5 REM* BY * IA 
*6 REM* WILLIAM BRAUN * GJ 
*7 REM* 1984 * MK 
“8 REM Hooo LO 


%10 РОКЕ55,225:РОКЕ56,РЕЕК(56)-1:А-РЕЕК(5 
6)%*256+226: FORX=0T027 : READD: POKEA+X,D:NE 


XT PG 


100 АНОҮ! 
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еб 


Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
апа provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


+15 PRINT" [CLEAR] [BLACK ]{DOWN][5" " ]INSTR 
UCTIONS[ BLUE] [DOWN ][DOWN]":PRINT" 1. LOA 
D IST PROGRAM":PRINT"[DOWN] 2. SYS"A 

+20 PRINT"[DOWN] 3. LOAD 2ND PROGRAM" :PRI 
NT"[DOWN] 4. SYS"A+19:PRINT"[DOWN] 5. SA 
VE AND VERIFY 

+25 DATA165,43,133,251,165,44,133,252,166 
,45,202,202,134,43,165,46,133,44,96 см 
*30 DATA165,251,133,43,165,252,133,44,96 KI 


СА 


AJ 


VIC 20 BUG REPELLENT LINE CODES 


#1 :LO #4 :00 $7 :MK #15 :LE #30 :KI 
$2 :00 #5 :JO #8 10 #20 :BI 
ЯЗ :CC #6 :HI #10 :PG #25 :CM 


AUTOS: LEASING V. BUYING 
FROM PAGE 75 

*10 PRINTCHR$(147) , CHR$(144) : POKE53281 , 14 NA 
*20 PRINTTAB(9)"AUTO: LEASING VS BUYING" OA 
*25 PRINTTAB(9):FOR J=1T023:PRINT CHR$(18 
3) ; : NEXT: PRINT: PRINT 

“30 PRINTTAB(13)"COST OF BUYING":PRINT:PR 
INT NH 
*35 PRINTTAB(3)"PLEASE ENTER DATA AS REQU 
ESTED":PRINT: PRINT JP 
“40 INPUT" ENTER THE PURCHASE PRICE $ ";P 


P; PRINT ND 
«50 INPUT" WILL YOU NEED FINANCING? Y/N"; 
F$:PRINT:IF F$="N" THEN 190 ON 


“60 PRINT" DOWNPAYMENT INCLUDING TRADE-IN 
i OL 
“70 INPUT " ALLOWANCE $ ";DP:PRINT :LA=P 
P-DP HK 
“80 PRINT"[3" "]YOU WILL NEED TO BORROW du 
"SLA:PRINT 

-90 PRINT" WILL YOU NEED TO BORROW MORE p 

9% DE 
*95 PRINT" COVER SALES TAX, LICENSE, ETC 

эн 


.? JC 
*100 INPUT"[4" "]Y/N";H$:PRINT LG 
*105 IF H$="N" THEN LA=PP-DP: GOTO 140 ЕС 
“110 PRINT"[3" "JENTER ADDITIONAL AMOUNT 

BORROWED" IE 
*120 INPUT "$ ";AB: LA=LA+AB ;PRINT MN 


“140 PRINT" ANNUAL PERCENTAGE INTEREST RA 


TE?" BG 
150 INPUT "|5" "]Z ";R :PRINT co 
“160 IF R»1 THEN К=Е/100 BD 
+170 PRINT" LENGTH OF LOAN IN MONTHS." LD 
180 INPUT "[5" "JMONTHS";M:PRINT NK 


*185 IF M>6 THEN PRINT'SORRY,6O MONTH LI 


MIT, PLEASE RE-ENTER":PRINT:GOTO 176 GP 


“190 INPUT" SALES TAX RATE Z ";SX:PRINT ВВ 
CA 


*200 IF SX>1 THEN 5Х-5Х/100 
*210 INPUT" ANNUAL LICENSE FEE $ ";LC:PRI 


NT 

“220 PRINT" WHAT TYPE OF CAR ARE YOU BUYI 
NG?" : PRINT 

*230 PRINT"[3" "]1. STANDARD" 

*240 PRINT"[3" "]2. COMPACT" 


MD 


SPC(SP)X$ NN 
“675 PRINTTAB(28);:FOR K-1T09: НО и 
83) ; : NEXT: PRINT: PRINT 

*680 DF-LT-TT:X$-STR$(DF):GOSUB 3000 

*690 IF DF»0 THEN PRINT"[5" "]BUYING IS C 


FD 


+250 PRINT"[3" "|3. SUBCOMPACT? PJ НЕАРЕВ ВУ $";SPC(SP)X$ OB 
*260 INPUT"PLEASE ENTER NUMBER";N: KO -700 IF ПЕ<0 THEN PRINT"[5" "]LEASING IS 
*270 PRINT" DO YOU ITEMIZE YOUR DEDUCTION CHEAPER BY $";SPC(SP)VAL(X$)*-1 

S FOR" РО -900 END IC 
*280 INPUT" INCOME TAX PURPOSES? Y/N";Y$ +1000 REM COST OF BUYING CALCULATIONS ЈМ 
:PRINT LN «1010 YR-M/12:MR-R/12:T-INT(YR) :TT-0:TD- 
«290 IF Y$="N" THEN 320 IJ 0 66 
+300 PRINT" ENTER YOUR TAX BRACKET RATE" HF .1015 XLe(PP*(14.055) [UPARROW]YR)-PP BF 
*310 INPUT"Z";TX:PRINT КМ -1020 LI-(DP*(14.055)[UPARROW]YR)-DP НА 
*320 IF TX>1 THEN TX=TX/100 AN +1625 IF LA=0 THEN 1070 HP 
“370 РЕТМТСНВ$ (147) FG .1030 F=(MR*(1+MR) [UPARROW]M) / ( (14MR) [UPA 
*380 PRINTTAB(12)"COST OF LEASING" DB  RROW]M-1) NB 
*390 PRINTTAB(12):FORK-1TOl5:PRINTCHR$(18 +1040 MP-F*LA NH 
3) ; s NEXT: PRINT: PRINT NO -1050 IX-(MP*M)-LA JF 
“400 PRINTTAB(3)"PLEASE ENTER DATA AS REQ _ -1060 IS-IX*TX EI 
UESTED" : PRINT: PRINT JP +1070 SS-(SX*PP)*TX AC 
“410 PRINT" ENTER SECURITY DEPOSIT REQUIR — -1075 IF T>5 THEN PRINT"SORRY, 60 MONTH L 
ED" GF  IMIT":END KJ 
*415 INPUT"[5" "]$";SD:PRINT BN -1080 IF N-l THEN GOSUB 2000 MI 
*420 PRINT" ENTER MONTHLY LEASE PAYMENT" HD -1090 IF М-2 THEN GOSUB 2100 LK 
*425 INPUT"[5" "]$";ML:PRINT ED -1100 IF N=3 THEN GOSUB 2200 ІМ 
*430 PRINT" FOR HOW MANY MONTHS?" DG -1110 LC-LC*YR DC 
«435 INPUT"[5" "]MONTHS";NP:PRINT:IF F$=" -1120 RETURN ІМ 
М" THEN M-NP CH -1300 REM COMPUTE COST OF LEASING LP 
*440 PRINT" DOWNPAYMENT OR ADDITIONAL PAY +1310 TL-ML*NP DA 
MENT" ON +132 TI-INT(NP/12) AC 
+450 INPUT"[5" "]$"; AP: PRINT BL +1330 IL=(SD*(1+.055) [UPARROW ]T1)-SD BM 
«460 INPUT" ANNUAL LICENSE FEE $";LF:PRIN +1340 ТА=(АР*(1+.055) [UPARROW |Т1)-АР DH 
T JH 21350 LF-LF*TI PK 
*470 GOSUB 1000 ҒО -1360 RETURN IM 
*480 GOSUB 1300 FB -1500 REM DISPLAY BUYING RESULTS JF 
*510 GOSUB 1500:PRINT:PRINT CH +1505 PRINTCHR$(147) FG 
«520 INPUT"PRESS "С! TO CONTINUE";C$ СР +1519 PRINTTAB(13)"COST OF BUYING" BD 
+530 GOSUB 1800: PRINT:PRINT PO +1515 PRINTTAB(13);:FOR K=1TO14:PRINTCHR$ 
+540 INPUT"PRESS 'С' TO CONTINUE";C$ GP (183); NEXT: PRINT: PRINT 


+550 PRINTCHR$(147):POKE 53280,2 IN 
*560 PRINTTAB(5)"COMPARISON: LEASING VS. 
BUYING" DL 


«570 PRINTTAB(5) : FORK=1T030: PRINTCHR$(183 
); NEXT: PRINT: PRINT 

«590 MP-INT(MP*1004.5) /100: X$-STR$ (МР) :GO 
SUB 3000 сс 
«600 PRINT'YOUR MONTHLY LOAN PAYMENTS WOU 
LD BE:":PRINT HK 
*610 PRINTTAB(10)"$";X$:PRINT LC 
*620 PRINT"YOUR MONTHLY LEASE PAYMENT WOU 
LD BE:":PRINT AD 
“630 PRINTTAB(10)"$" ;ML:PRINT:PRINT ID 
*640 X$-STRS(TT):GOSUB 3000 IJ 
«650 РЕТМТ"ТНЕ NET COST OF BUYING IS $"; 
SPC(SP)X$:PRINT AF 
“660 X$=STR$(LT):GOSUB 3000 

«670 РЕТМТ"ТНЕ NET COST OF LEASING IS $"; 


IB 


ww.oldgames 


*1520 IF F$="N" THEN 2500 
*1525 DP-INT(DP):X$-STR$(DP):GOSUB 3000:T 
T=TT+DP 


0 
A +1530 PRINT"DOWNPAYMENT[18"."]$";SPC(SP)X 
IF 


$ 

*1540 LI-INT(LI):X$-STR$(LI):GOSUB 3000: B. 
T-TT4LI 

1550 PRINT"INTEREST LOST ON eM 
."5SPC(SP)X$ 

+1566 TP-(M*MP)-AB: TP-INT(TP) : o 
:GOSUB 3000 :TT=TT+TP 

+1570 РЕТМТ"ТОТАЬ PAYMENTS ON LOAN[8". DN 
;SPC(SP)X$ HK 

*1575 PRINT"[SS][SS](AUTO PORTION ONLY) EH 

*1580 SA-SX*PP:SA-INT(SA):X$-STR$(SA) :GOS 

UB 3000: TT-TT4SA H 

+1590 PRINT"SALES TAX ON PURCHASE[9"."]"'; 
SPC(SP)X$ MP 


IMPORTANT 


*1593 LC-INT(LC):X$-STR$(LC):GOSUB 3000:T 
T-TT4LC 


*1595 PRINT"LICENSE FEES FOR ";INT(YR);"Y 
PD 


EARS[5"."]" ; SPC(SP)X$ 

*1600 PRINTTAB(29);:FOR K-1TO10:PRINT CHR 
$(183); : NEXT 

*1610 X$=STR$(TT):GOSUB 3000 


LD 
*1620 PRINT: PRINTTAB(5)"TOTAL";SPC(19)"$" 


;SPC(SP);X$ 

*1630 PRINT:PRINT"LESS:":PRINT 

*1640 Z=PP*(1-TD):Z=INT(Z) : X$-STR$(Z) :GOS 
UB 3000:TT-TT-Z 

*1650 PRINT"ESTIMATED RESIDUAL VALUE" 
*1660 PRINT"[5" "JOF THE CAR[14"."]$";SPC 
(SP)X$ 

+1665 IF Y$="N" THEN 1720 


BF 
1670 IS-INT(IS):X$-STR$(IS):GOSUB 3000:T 


T-TT-IS 
+1680 PRINT"TAX SAVINGS ON INTEREST[7". B. 
"SSPC(SP)X$ 

+1700 SS=INT(SS) :X$=STR$(SS) : GOSUB 3». 
Т-ТТ-55 

41710 PRINT"TAX SAVINGS ON SALES TAX[6"." 
]";SPC(SP)X$ 


*1720 PRINTTAB(29) : FORK-1TO10: PRINTCHR$(1 
EN 


83); : NEXT: PRINT 

*1730 X$-STR$(TT):GOSUB 3000 

*1740 PRINTTAB(5)"NET COST OF BUYING"; d. 
(6)"$" ;SPC(SP)X$ 

*1750 RETURN 

*1800 REM DISPLAY LEASING RESULTS 

“1810 PRINTCHR$(147) 

+1820 PRINTTAB(12)"COST OF LEASING" 

“1830 PRINTTAB(12):FORK=1T015:PRINTCHR$(1 
83) ; : NEXT: PRINT: PRINT 

*1840 SD-INT(SD):X$-STR$(SD):GOSUB 3000:L 
T-LT4SD 

с DEPOSIT[13". Шш 
SP)X 

*1860 TL-INT(TL):X$-STR$(TL):GOSUB 3000: if 
TsLT+TL 


“1870 PRINT" TOTAL OF LEASE PAYMENTS[7"."] 
DG 


"5 SPC(SP)X$ 

+188 IL-INT(IL):X$-STR$(IL):GOSUB 3000:L 
T-LT«IL 

+1890 PRINT"INTEREST LOST ON SECURITY DEP 
."SSPC(SP)X$ 

+1891 IF АР-0 THEN1906 

*1895 AP=INT(AP):X$=STR$(AP):GOSUB 3000:L 
T=LT+AP 


+1898 PRINT"ADDITIONAL REQUIRED PAYMENT[3 
MK 


"."]";5РС(5Р)Х$ 
*1900 IA-INT(IA):X$-STR$(IA):GOSUB 3000:L 
T=LT+IA 

“1903 PRINT"LOST INTEREST ON ADD'L PAYMEN 
T':SPC(SP)X$ 


102 AHOY! 
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*1906 LF=INT(LF):X$=STR$(LF):GOSUB 3000:L 
СЕ T-LT4LF 
*1907 PRINT"LICENSE FEE FOR ";Tl; "YEARS[6 | 
"."]";5РС(5Р)Х$ 
+1909 PRINTTAB(29) : FORK-1TO10: ERU ы 


NC 83); :МЕХТ:РЕТИТ 


1910 LT-INT(LT):X$-STR$(LT):GOSUB 3000 BB 
“1920 PRINT TAB(5)"TOTAL";SPC(19)"$"; TU 
GN 5Р)Х5 
OL “1930 PRINT:PRINT"LESS:":PRINT m 
*1940 X$=STR$(SD):GOSUB 3000:LT-LT-SD GK 
GO -1950 PRINT"RETURN OF SECURITY DEPOSIT[3" 
HH ."]$"; SPC(SP)X$ NN 
*1955 PRINTTAB(29) : FORK-1TO10: олана, 
KM 83); :МЕХТ:РВІМТ 
1960 LT=INT(LT) :X$=STR$(LT):GOSUB 3000 E 
+1970 PRINTTAB(5)"NET COST OF LEASING";SP 
AB  C(5)"$";SPC(SP)X$ NF 
“1990 RETURN IM 
“2000 А(1)-.279:А(2)-.146:А(3)-.111:А(4)- 
.099:А(5)-.084 00 
+2010 FOR K=1TOT:TD=TD+A(K):NEXT:RETURN DF 
+2100 B(1)-.167:B(2)-.126:8(3)-.106:B(4)- 
НЕ .999:B(5)=.095 МА 
+2110 FOR K=1TOT:TD=TD+B(K):NEXT:RETURN ЕТ 
*2200 C(1)=.123:C(2)=.115: C(3)=.114:C(4) 
LD -.107:С(5)-.106 GM 
*2220 FOR K=1TOT:TD=TD+C(K):NEXT:RETURN NL 
“2500 REM DISPLAY CASH PURCHASE RESULTS IE 
> “2510 PP=INT(PP):X$=STR$(PP):GOSUB 3000:T 
JP  T-TT4PP AI 
FG “2520 PRINT"PURCHASE PRICE[15"."]$";SPC(S 
10 P)X$ MH 
*2530 XL=INT(XL) :X$=STR$(XL):GOSUB 3000:T 
NO T-TT«XL PA 
«2540 PRINT"INTEREST LOST ON PUR. PRICE(3 
BILUU ]"SSPG(SP)X$ AC 
“2550 GOTO 1580 HG 
“3000 SP-9-LEN(X$) : RETURN KA 


NH А Analy 22) 


ЕКОМ РАСЕ 17 
“10 РОКЕ53280,1:Р0КЕ53281,1: А ы 


СМ [е 4]": DIMTI (20), T2(30) 

*20 DIMW$(74),G$(14),G(14) ,W(14,7,9), қы, 
ON ,9),T$(14, 9),Р$(14),Р(74) ММ 
МК -25 D$-" ." :N$-CHR$(13): С0$=", " NM 


-30 FORI=9T022:K$=K$+" [DOWN ]" : NEXT: K$e" [H 
CE OME J"+K$+"[RED ]{ 12"[RİGRT ]" PRESS ANY KE 


d 5-2:С-12:0-(49152%2%1024)/256:РС-6143 
9 

Е „88 РОВТ=1Т033 : ВЕАРА:РОКЕ49151+Т,А:МЕХТ:С 
050895 


EG -89 POKE56576,PEEK(56576)4ND252:P0KE53272 


KL 


KD 


FE 


,S*16«C: POKEG48, 0. 

:90 FORT=53236T053245:READA:POKEI,A:NEXT DE 

+91 POKE53246, PEEK(792) : POKES3247 , PEEK (79 
3) :POKE792 , 244: POKE793,, 207 : GOTO100 

+95 POKES6334 , PEEK(56334 )AND254 :РОКЕ1 , PEE 
K(1)AND251:S¥S49152 NE 
+96 РОКЕ1 ,РЕЕК(1)084:РОКЕ56334,РЕЕК(56334 
JORL:RETÜRN FN 
+97 DATA169,0,133,251,133,253,169,208,133 
,252,169,240, 133,254, 162,16 DL 
+98 DATA160,0, 177,251, 145,253, 136,208, мә, 
,230,252,230,254,202,208,240,96 

+99 DATA72, 169, 4,141, 136,02, 104,108,254, d 
07 

:100 FORI-1TO74:READWS(I):NEXT 

+110 PRINT"[CLEAR][c 4]"TAB(17)"[7" [DOWN] 
"'J[RVSON JSCRIPT" : PRINTTAB(16)" [DOWN] [ВУЗ 
ON JANALYSIS 

+114 PRINTTAB(13)"[4"[DOWN]"][RVSON]BY BO 


HG 


HL 
HH 


16 


В SPIRKO" ЕН 
+120 FORI-OTOl4:READGS(I),G(I):NEXT GG 
:140 B=8:FORI=1T049:READL: FORJ-1TOB:READK 
:POKEPC+L*E+J К: NEXT: NEXT BN 
+150 PRINT"[HOME]"TAB(19)" [ 8" [DOWN ]"] [ВАС 
KARROW] [EP]": PRINTTAB(20) " DOWN ] ]" GC 
+155 PRINTTAB(13)"[ DOWN ] [DOWN ] [UPARROW] 
[UPARROW] [UPARROW][5" "][UPARROW]": PRIN 
TTAB(14)"[DOWN]][6" "ПЕРІ" LF 
+169 FORI=1T053:READL:FORJ=1T08 : READK : POK 
EPC+L*E+J , K: NEXT: NEXT PJ 


:170 FORI-OTOl4:FORJ-OTOG(I) : READT$(I , J) : 
NEXT:NEXT ос 

+180 FORI=0T014:FORJ=0TOG(I):READT(I,J):F 
ORK=OTOT(I,J):READW(I,J,K) 


+190 NEXT:NEXT:NEXT PI 
+200 INPUT"[CLEAR][c 5 [DOWN] [DOWN ]FILENA 
ME";F$:PRINT"[DOWN][c 1]N[c 5]EW OR [c 1 
ІШе 5JOAD?" DN 
+220 СЕТА$: IFA$=""THEN220 HL 
+230 IFA$-"L'THENAOOO 10 
+240 PRINT"[DOWN][c 1]Ы с 5]EFT- OR [c i, 
R[c 5]IGHTHANDED?" 

+242 GETH$:IFH$-""THEN242 Ян 
+245 IFH$-"L'THENSOO GI 


+250 H$="R":GOTOS00 cP 
+300 BEVAL(A$)-1:FORC-OTOT(A, B) : P(W(A,B,C 
))-P(W(A, B, C) ) -1 : NEXT: RETURN NF 
*333 GETB$:IFB$-"'"THEN333 FI 
*337 IFB$<>"1"THENRETURN BJ 
*339 P$=P$+T$(A,B)+CO$:A$=CHR$(B+49) :GOSU 
B300: RETURN FJ 
*344 PRINTTAB(5)T$(A,B)": [RVSON]";:RETU 
RN JM 
*400 PRINT"[c 4]":FORB-OTOG(A):PRINTTAB(7 
)RIGHT$(STR$(B+1),1)". "T$(A,B):NEXT 
*405 PRINT"[c 7]"TAB(7); 

*410 PRINT"[RVSON][c B][LEFT]" 
NT"[RVSOFF][c B][LEFT]"; :IFA: 


+420 V-ASC(A: НӘЛЕТ y ELEME 
+530 PRINT" "; :RETURN 

-450 PRINTLEFTS(PS(I),J):PRINTRIGHT$(P$(I 

) ,LEN(PS(I))-J) : RETURN HG 
+500 FORA=9TO1 A+1:PRINT" [CLEAR] [BLUE 

J [DOWN ]"AA;G$(A)" [DOWN [© ср 
+510 ONAAGOSUB1000, 1200, 1400, 1600, 1800, 20 


AM 
OA 


09,2200, 240, 2600, 2800, 3000, 3200,3400 ВЕ 
+520 IFA-ISTHENGOSUB3600 НЕ 
+525 IFA=14THENGOSUB3890 PD 
*530 NEXT IA 


*600 PRINT"[CLEAR] [DOWN ] DOWN ] [ BLUE ] "F$"" : 
SCRIPT CHARACTERISTICS[DOWN][c 5]":FORI 
=01014 

+610 PRINT"[c 5]"6$(1)": 
№50 

+620 IFLEN(P$(I))<24THEN650 BJ 

:630 FORJ-20TO40; IFMID$(P$(I),J,1)=","THE 

№ 0508450: 6010660 JD 

*640 NEXTJ 

*650 PRINTPS(I) 

+66 МЕХТТ: IFA$-"T"ORAS$-"D'THENPRINTK$:GO 


[c 4]"; : IFI-4THE 
BP. 


MM 
KN 


T0745 DC 
*700 М=0:№=0:ЕОВІ=1Т074:1ІРР(І)=.ТНЕМ740 ЕН 
“720 ІЕР(І)>2ТНЕММ=М+1:Т1(М)=1:6070740 РС 
“730 IFP(I)-2THENN-N41:T2(N)-I LN 
+740 NEXT: PRINTK$ ME 
+745 GETA$: IFA$=""THEN745 KF 
+746 PRINT" (CLEAR][BLUE]"F$": ANALYSIS" ОК 


+750 Y-44:PRINT"[DOWN ] [DOWN] [c 4IDONINANT 
TRAITS:[c 5]"; 
2*(I-M): й 


+760 РОВТ=1Т0М:Х$=И$(ТІСТ)) :Ү=Ү- 

05108950 

+770 NEXT: Y-44 : PRINT : PRINT" [ c № 
ER TRAITS:[c 5]"; NH 

+780 FORI=1TON: X$=W$(T2(I)) :Y=Y-2*(I=N) :G 
OSUB95O: NEXT 0B 

+800 PRINT:PRINT"[A"[DOWN]"][c 1][3" "JEL 

с 5]ND[3" "][c 1]D[c 5]ISK[3" "][c 1]T[c 
5]APE[3" "][c 1]P[c 5]RINTER[3" "][с B. 
В[с 5]UN[c 7]":PRINTTAB(3) 

+810 PRINT"[RVSOFF][c B][LEFT]"; :GETAS: x 
AS-""THENPRINT"[RVSON][c B][LEFT]"; :GOTO 
810 MF 

+820 PRINT" [LEFT]"; : IFA$-"D"ORA$-"T"THEN 

AC 


4100 


*830 ТЕА$="Р"ТНЕМ4200 JE 
+840 IFA$="R"THEN900 HJ 
“850 IFA$="E"THENEND FI 


+860 GOTO810 CN. 
*900 FORI-1TO74:P(I)-0:NEXT:FORI-0TO13:P$ 
(I)e"" : NEXT: H$z"  : P$" : GOTO200 FA 
:950 IF(LEN(X$)+2)>39-POS(0)THENPRINT 
+960 PRINTCHR$(32)X$CHR$(Y) ; : RETURN 

*1000 PRINTTAB(21)" [ BLACK ] [DBACKARROW]"TAB 
(29)"[RVSON]'[c 5]" НА 
+1010 PRINT"SCRIPT MAY ВЕ [RVSON][BLACK]V 
ERTICAL[RVSOFF][c 5] OR [с 5] [ВУЗОМ] [ВЕА 


Ор 
АН 
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СК]2&!$7&#[[с 5][RVSOFF] OR" 

*1015 РЕТМТ"ТТ MAY SLANT TO THE LEFT.":PR 
INT 

+1020 PRINT"SLANT CAN ALSO VARY. FOR INST 


MG 


AH 


ANCE," OH 
+1030 PRINT"SOME LETTERS MAY BE VERTICAL 
WHILE" AK 


*1050 PRINT"OTHERS ARE SLANTED. IF THE SA 
MPLE" 

*1060 PRINT"HAS MORE THAN ONE SLANT OR TH 

E SLANT" CA 
"1070 PRINT"APPEARS INCONSISTENT THEN ІТ" 

S 


"1080 PRINT"CONSIDERED IRREGULAR.":PRINT JB 
"1085 PRINT"OF THE FOLLOWING CHOSE THE ON 
E 

"1090 PRINT'THAT CLOSELY MATCHES THE SLAN 
T:"K$ JB 
*1095 GETA$:IFA$-'"THEN1095 KB 
-1100 PRINT"[CLEAR] [ BLUE]" JK 
*1110 PRINTTAB(17)"3 4 5":PRINTTAB(13)"2[ 
3" "][c M] [s B] [c G][3" "]6":PRINTTAB( 
14)"[s 1113" "Це G][s -Це М3" "Is U 
1" 


MG 


MO 

+1120) PRINTTAB(11)"1[3" "][s J] [s T][s 
-][s Y] [s K][3" "]7":PRINTTAB(12)"[s M 

] [s 1] [s G][s -][s H] [s U] [s N]" LP 

+1130 PRINTTAB(13)"[s M] [s J] [3"[s -]" 

] [s К] [s N]":PRINTTAB(14)"[s M] [s I] 
[s H][s -][s G] [s U] [s N]" KF 

*1140 PRINTTAB(15)"[s M] lic J]Is Y][s -][ 

s T][s К] [s N]":PRINTTAB(16)"[s M][s 1] 

[c M][s -][c G][s U][s N]":PRINTTAB(17)" 
[s M][s J][s -][s K][s М)" DH 

*1150 PRINTTAB(18)"[s M][s -][s N]":PRINT 

TAB(8)"[23"[c Y]^]" HP 

+1160 60308400: ТЕН$="Ы"ТНЕМА$=МТО$ ("76543 
21", VAL(A$),1) 

+1170 GOSUB300:P$(A)-T$(A, V) : RETURN 

+1200 PRINT"THE BASELINE IS THE IMAGINARY 
LINE THAT" 

+1210 PRINT'WE WRITE ON. SOME WRITERS НАУ 
E LINES" JK 

+1220 PRINT"THAT ARE STRAIGHT AS А RULER 

WHILE" 

+1230) PRINT"OTHERS HAVE TROUBLE WRITING A 
STRAIGHT" DN 

+1240 PRINT"LINE EVEN WHEN THEY HAVE GUID 

E LINES. [DOWN] [DOWN ] [BLUE]" PO 

+1260 S$-" [с A][5"[s *]"][c S]":FORI-1T 
O4: PRINTS; :NEXT:PRINT GF 

*1270 S$="[s -][c 4][5"[s C]"][BLUE][s -] 
[в -Пс 4118 R][s F][s C][s D][s E][BL 
ШЕ в -] [s -][с 4115 ElIs D][s Cl[s Е] 

Із R][BLUE}[s -] [s -][c 4]ls СЦв F][s 
C][s F][s C][BLUE][s -]" EH 

+1280 FORI-0TO3:PRINTTAB(2)S$:NEXT 

+1290 PRINT"[c 4] ":FORI-OTO3:PRINTTAB(44 
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9*Т)1+1; t NEXT: PRINT: PRINT 

*1299 GOSUB400:GOSUB300: P$(A)-T$(A, V) : RET 

URN DD 

*1400 PRINT"THE SIZE OF HANDWRITING IS JU 

DGED BY" 

*1410 PRINT"SIZE OF THE MIDDLE ZONE LETTE 

RS SUCH AS" 

*1420 PRINT"[RVSON][BLACK]A[c 5][RVSOFF], 
[RVSON][BLACK]E[c 5][RVSOFF], [RVSON][B 

LACK]M[c 5][RVSOFF], AND [RVSON][BLACK ]V 


KB 


FC 


[c 5][RVSOFF]; LETTERS WITHOUT" EI 
+1430 PRINT"UPPER OR LOWER LOOPS. AVERAGE 
D-SIZED" AK 


*1440 PRINT"HANDWRITNG IS ABOUT 3 ML. НІС 
H. SELECT THE APPROPIATE SIZE:" 

*1460 PRINTTAB(9)"[ DOWN ] [DOWN ] [BLACK ] [RVS 
ОЕ D][RVSOFF]  [BACKARROW]":C$-CHR$(2 
3 


IJ 
+1470 PRINTTAB(S)"[RVSON][c «][c M][cEP][ 
sEP]"C§" LARGE [c I][c T][c @][с G] [ 

c *][c K]" IP 
“1480 PRINTTAB(5)"[RVSON][c Q][RVSOFF]"TA 
B(15)"]" CA 
о тиши )у"пюянце a 
и иди LD 


IB 


*1499 GOSUB400:GOSUB300:P$ (A)-T$(A, V) : RET 
URN DD 


*1600 PRINT"CONTINUITY REFERS TO THE DEG 
REE OF" 

1610 PRINT"CONNECTEDNESS BETWEEN LETTERS 
. IF THE" 

*1620 PRINT"WRITING IS MOSTLY OR ENTIRELY 
CONNECTED" HH 

11630 PRINT"THEN PRESS 1. IF ІТ IS MOSTLY 


GO 


IM 

“1635 PRINT"OR ENTIRELY DISCONNECTED THEN 
PRESS 2." 

“1640 PRINT"IF IT IS ABOUT EQUALLY CONNEC 
TED AND" 

“1650 PRINT"DISCONNECTED THEN PRESS 3." 

+1660 PRINTTAB(30)" [DOWN] [DOWN ] [BLACK ] [UP 
ARROW]" DF 

+1670 PRINT" [RVSON]CONNECTED [s Q][s R 
1515 S]Is ТИз Ul[s U][s V][s Sls М] [3 
V][s Q] [s S][s T]MBI[s W][s RJON" м 

-1680 PRINTTAB(7) " [DOWN )1"ТАВ(19)"2"ТАВ(З 
1)" 3 DOWN ] [ DOWN ]" DH 

+1699 GOSUBAOO: GOSUB300: P$ (A) -T$(A, V): RES 
URN 

1800 PRINT"THERE ARE А FEW STYLES OF" 

“1805 PRINT"WRITING. ROUND SCRIPT APPEARS 
ROUND IN" 

“1810 PRINT"IN EVERY WAY. THE TOPS OF LET 
TERS AND" 

+1815 PRINT"THE CONNECTING STROKES ARE RO 


cc 


OL 
DF 


С 


UND. ":PRINT BC 
*1820 PRINT"WHEREAS ANGULAR SCRIPT CONTAI 
NS LETTERS" 6р 
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+1825 PRINT'THAT ARE ALL POINTED. OFTEN A 
SAMPLE" HN 

+1830 PRINT"IS NEITHER ENTIRELY ROUND OR 
ANGULAR" 

+1835 PRINT'BUT A COMBINATION OF BOTH.":P 
RINT 

*1840 PRINT'INFREQUENTLY, YOU'LL FIND HAN 
WRITING" 

+1845 PRINT'THAT IS ORGINAL OR ARTISIC: T 
HE" IF 

+1847 PRINT"LETTERS ARE UNUSUAL OR UNCONV 
ENTIONAL." 

+1859 PRINT"BUT DON'T MISTAKE SUPERFLUOUS 
LOOPS" 

+1855 PRINT"AND FLOURISHES AS BEING ORIGI 
NAL."K$ 

+1860 GETA$:IFA$="""THEN1860 

+1879 PRINT"[CLEAR][c 4][3"[DOWN]"]"TAB(1 
8)"[RVSON][s I] [ВУЗОЕЕ]"ТАВ(26) "+ [ RVSON] 
Th 


GB 


LG 


GN 


EF 
LJ 


FP 
+1875 PRINTTAB(4)"[RVSON JXOUND"SPC(5)"[ s 
В] [в C][s D][s Е][з F][s B][s G]"SPC(5)" 
*sia e" 
:1880 PRINTTAB(16)"[RVSON][s H]":PRINTTAB 
(6)" 1" TAB(17)" 2"TAB(29)"3" :PRINT"[c 4]" BM 
+1900 FORB=(TO3:PRINTTAB(7)RIGHTS(STR$(B+ 
1),1)". "T$(A,B) NEXT KF 
+1910 GOSUBAOS:GOSUB300:P$-T$(A,V):PRINT HB 
+1920 PRINT" [DOWN ][DOWN]{c 5]WHICH BEST D 
ESCRIBES THE HANDWRITING?[c 4][DOWN]" 
:1930 FORB=4TO5 : PRINTTAB(7)RIGHT$(STR$(B- 
3),1)". "T$(A,B) :NEXT ск 
:1940 60308405: IFV>1THENPRINT"[LEFT]"; :GO 
701940 
+1950 A$=CHR$(V+52) :GOSUB300:P$(A)=P$4", 
"4T§(A, V+4) : RETURN 
+2000 PRINT"LINES CAN BE FAR APART OR SO 
CLOSE" 
+2010 PRINT'TOGETHER THAT THE LOWER LOOPS 
OF ONE" 
+2620 PRINT"LINE TANGLES WITH THE UPPER L 
OOPS OF" 
+2030 PRINT'THE LINE BELOW:" JO 
+2040 PRINTTAB( 13)" [RVSON] [BLACK ]DRAGGING 


FI 


":PRINTTAB(16)"[s A][PI] [s A]" DD. 
“2050 PRINTTAB(12)"[RVSON ]TANGLED[RVSOFF] 
[RVSON ]LINES" : PRINTTAB(15)"[ PI ]" СЕ 


*2060 PRINT"[DOWN][c 5]IF THE LINES АВЕ V 
ERY TANGLED THEN" 

*2070 PRINT"PRESS 5. IF THE LINES ARE NAR 
ROW BUT" 

*2080 PRINT"ONLY A FEW LOOPS ARE TANGLED 
PRESS 4." 

*2090 РЕТМТ"ТЕ LINES ARE CLOSE BUT NOT TO 
UCHING" 

*2100 PRINT'PRESS 3. IF THE LINES АВЕ WID 
E PRESS 2." 

*2110 РЕТМТ"ТЕ THE SPACE BETWEEN LINES IS 
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OM 


AJ 


PB 


PO +2430 PRINT" 


SO WIDE" 
+2120 PRINT"THAT A ANOTHER LINE COULD ВЕ 
PLACED" FE 
+2130 PRINT'BETWEEN THEM THEN PRESS 1.":Р 
RINTK$ АС 
*2140 СЕТА$ :ТЕА$=""ТНЕМ2140 KB 


+2199 PRINT" [CLEAR] [4" [DOWN ]" ]" : GOSUB400: 
GOSUB300: P$(A) -T$(A, V) : RETURN BD 
+2200 PRINT"LEFT AND RIGHT MARGINS ARE TY 
PICALLY" HB 
“2210 PRINT "ABOUT ONE INCH WIDE. OFTEN Т 
HEY ARE" 

22227 PRINT"MADE WIDER OR NARROWER, OR AR 


КІ 


МС 

5222 PRINT"DIFFERENT WIDTHS. CHOSE ONE Т 

+2240 PRINT"FOLLOWING. IF IT DOES NOT FIT 
IN ANY" 

*2250 PRINT"CATEGORY, EG,A MARGIN MAY BE 
NARROW АТ" 

*2260 PRINT"AT THE TOP AND WIDE AT THE BO 


TTOM, THEN PRESS 6." :PRINTK$ JP 
FK -2265 СЕТА:ІҒАб-""ТНЕН2265 NL 
+2270 PRINT" [CLEAR]" HH 


+2280 S$="[BLUE][c G][c 4][6"[s C]"][BLUE 
J[c M][3" "][s Y][c 4J[7"[s F]"][BLUE][s 
T] [s вИе 4] [4"[s С]"] [BLUE][s В)": 
FORI=1T05:PRINTTAB(5)S$:NEXT NP 
+2290 PRINTTAB(8)"[BLACK]1"TAB(20)"2"TAB( 
30)"3[ DOWN]" KJ 
+2300 S$-"[BLUE][s B] [c 4][5"[s C]"][BLU 
E][s Н][3" "J[s H][c 4][6"[s F]"] [BLUE] 


[s B]":FORI-1TO5:PRINTTAB(5)S$:NEXT FL 


Dc Eu PRINTTAB(8)" [ BLACK ]3" TAB( 20)" 4 [ DOWN 
DP 
FN >2399 GOSUBA400:GOSUB300: P$ (A) -T$(A, V) : o 


URN 


Н +2400 PRINT"PRESSURE IS SOMETIMES acci 


LT TO[6" "]ASSESS. FOR HEAVY"; 


M +2410 PRINT" PRESSURE, TURN THELA" PU 


OVER AND SEE OR EVEN FEEL IF THE "; 

PEN HAS LEFT INDENTATIONS г 
N THE PAPER." 

+2440 PRINT"[DOWN]LIGHT PRESSURE APPEARS 
AS DELICATE OR" IH 
*2450 PRINT"FAINT HANDWRITING. IF PRESSUR 
E APPEARS ТО BE NEITHER HEAVY OR "; 
*2470 PRINT"LIGHT[s *][s *]OR YOU[4" "]SI 
MPLY CAN'T TELL[s *][s *]THEN PRESS 3.[D 
OWN] [DOWN ]" 


PB 


IG 


Н +2499 GOSUBA00:GOSUB300: P$(A)-T$(A, V) : RET 
DD 


URN 

*2600 PRINT"SPEED IS ALSO DIFFICULT TO DE 
TERMINE.[3" "]SLOW WRITING IS OFTEN "; 
+2610 PRINT"DISCONNECTED AND CONTAINS AW 
KARD OR FLOURISHED FORMS." 


AL. 
НН 


GC -2650 PRINT"T'S ARE CAREFULLY CROSSED AND 


I'S DOTTEDPRECISELY." 
AHOY! 105 
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*2660 PRINT"[DOWN]FAST SCRIPT IS MOSTLY C 
ONNECTED AND[5" "]CONTAINS NATURAL, "; 

+2689 PRINT"AND UNCOMPLICATED[5" "]FORMS 
T-BARS AND I-DOTS MAY BE PLACED TO "; 

+2685 РЕТМТ"ТНЕ RIGHT. FAST WRITING IS US 
UALLY[3" "]INCLINED." 

*2690 PRINT"[DOWN]IF THE WRITING APPEARS 
NEITHER FAST OR" 

+2700 PRINT"SLOW OR YOU'RE NOT SURE, THEN 
PRESS 3." 


URN 

-2800 PRINT"UPPER ZONES REFER TO THE UPPE 
R LOOPS ON" 

+2805 PRINTTAB(16)"[c 4][UPARROW] 
OW][6" "][BACKARROW]" 

+2810 PRINT"[c S]LETTERS SUCH AS [RVSON][ 
c 4]B[c 5][RVSOFF], [RVSON][c 4]H[c 5][R 
NSOFF], AND [RVSON][c 41, 5][RVSOFF]. 
THE 

+282) PRINT"LOWER ZONE CONSISTS OF THE LO 
WER LOOPS" 

*2830 PRINT"ON LETTERS SUCH AS [ВУЗОМ] [с 
4]G[c S][RVSOFF], [RVSON][c 4]P[c 5][RVS 
OFF], AND [RVSON][c 4]Y[c 5][RVSOFF]." 

-2840 PRINTTAB(19)"[c 4]] [EP][6" "]]" 

«2845 PRINT"[c 5]TYPICALLY UPPER AND LOWE 
R ZONES ARE[5" "]ABOUT THE SAME HEIGHT O 
в"; 

+2846 PRINT" HIGHER THAN THEMIDDLE ZONE. 
IF THE ZONES ARE ABOUT[5" "]EQUAL'; 

+2870 PRINT" PRESS 1. IF THE THE ZONES VA 
RY[4" "]THEN PRESS 6.[DOWN]" 

+2885 PRINT"IF EITHER UPPER OR LOWER ZONE 
IS SHORT THEN CONSIDER IT BEING "; 

+2895 PRINT'NORMAL, IF BOTH ZONES ARE SH 
ORT THEN PRESS 5."K$ 

+2900 СЕТА$: IFA$-"  THEN2900 

2910 PRINT" [CLEAR][c 4]": SS-"[RVSON]4OAA. ы 
YGAG" 
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ОЕ 
ВК 
EL 


LL 
*2799 GOSUBA00:GOSUB300: P$ (A)-T$(A, V) : RET 
DD 


ND 


[UPARR 
MN 


IA 
LP 
JB 
OD 
KA 
MK 


JL 
LF 


*2920 РЕТМТТАВ(5)"< <<"ТАВ(15)"> ma 
NM 


5)"< <<" 


+2930 FORI-5TO25STEP10:PRINTTAB(I)S$; :NEX 
OL 


T:PRINT 


+2940 PRINTTAB(9)"]] JTAB(19)"]] ]"TAB(2 
OH 


9)"[PI][PI] [PI][DOWN]" 


+2950 PRINTTAB(9)"1"TAB(19)"2"TAB(29)"3[D 
OWN]" CL 


+2960 РЕТМТТАВ(5)">[5$ ]>>"ТАВ(25)"< >" 


ЕЕ 


%2970 FORI-5TO25STEP10: PRINTTAB(I)S$; : МЕХ 
OL 


T:PRINT 
+2980 PRINTTAB(9)"[PI][PI] [PI]"TAB(19)"= 
"TAB(29)"][PI] =[DOWN]" 


Е +3470 P$(A)=LEFT$(P$,LEN(P$)-2) : RETURN 


+2990 PRINTTAB(9)"4"TAB(19)"5"TAB(29)"6[D 
сс 


OWN]" 


*2999 GOSUB400:GOSUB300: P$(A)-T$(A, V) : RET 
DD 


URN 
“3000 PRINT"OVALS ARE THE LETTERS [ВУЗОМ] 
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[c 4]A[e 5][RVSOFF] AND [RVSON][c 4]O[RV 
SoFF][c 5]. THESE[4" "ЈАВЕ USUALLY CLOSE 
De": 
+3010 PRINT" [ВУЗОМ] [с 4]OVAAS[RVSOFF][c 
5]. BUT SOMETIMESTHEY HAVE OPENINGS AT T 
HE ТОР: [RVSON][c 4]QVG4S" 
+3040) PRINT"[c 5][DOWN]IF MOST OR ALL THE 
OVALS ARE CLOSED" 
+3050 PRINT"THEN PRESS 1. IF MOST OR ALL 
OVALS" NB 
+3060 PRINT"ARE OPEN PRESS 2. IF THEY ARE 
EQUALLY" :PRINT"PRESENT PRESS 3.[DOWN][D 
OWN)" 1A 
399 GOSUB400: GOSUB300: P$ (A) -T$ (A, V) : RET T 
р 


MO 


LB 
FD 


*3200 PRINT"T-BARS ARE THE STROKES THAT C 
ROSS THE[3" "]LETTER Т. OF THE FOLLOWING 
". 


+3220 PRINT" CHOSE ТНЕ[4" "]LENGTH WHICH 
IS THE MOST PRAVALENT:" 

+3230 PRINT"[BLACK ] [ DOWN ] [DOWN | TAB(10)"[ 
RVSON]TTAB(20)" 12" TAB( 30) "3[ DOWN]" 
+3235 PRINTTAB(10)" 1 TAB(20)"2" TAB( 30)" 3[ 


DOWN][DOWN][c 4]" LK 
+3240 РОВВ=ОТО2 : PRINTTAB(7) RIGHTS (STR$ (В+ 
1),1)". "T$(A,B):NEXT AG 


+3245 GOSUBAGQS: GOSUB300:P$-T$ (A, V)4", " 
+3250 PRINT"[CLEAR][c 5]T-BARS ALSO VARY 
IN POSITION. IF ANY OF THE FOLLOWING APP 


EAR"; LD 
+3255 PRINT" DISTINCTLY AT[6" "]LEAST THR 
EE TIMES IN THE SAMPLE THEN" BH 


+3265 PRINT"PRESS 1. IF NOT THEN PRESS AN 
Y:[c 4][DOWN][DOWN]" 

+3270 B=3:GOSUB344: PRINT"4":GOSUB333: PRIN 
т 


NF 


+3275 B=4:GOSUB344 : PRINT"05' : GOSUB333: PRI 
NT BF 
+3280 B=5:GOSUB344:PRINT"62":GOSUB333 1р 
+3290 B=6:PRINTTAB(12)"[RVSON]7":GOSUB344 
:PRINT"4" : GOSUB333: PRINT: B=7 :GOSUB344 
+3300 PRINT"[RVSON]8" : GOSUB333 : P$ (A) -LEFT 
$(P$, LEN(P$)-2) :P$-"" : LL: RETURN 

+3400 PRINT"I-DOTS ARE INTERPRETED IN A S 
IMILAIR WAYTO T-BARS. IF ANY OF THE"; 
+3420 PRINT" FOLLOWING[6" "]APPEARS DISTI 
NCTLY MORE THAN TWICE THEN" EM 
-3430 PRINT"PRESS 1. IF NOT PRESS ANY:[DO 
М [РОМУ [с 4]" HM 
+3450 FORF=(T05 : B-F: GOSUB344 : PRINTCHR$ (20 
24F) :GOSUB333: PRINT ND 
-3460 NEXT: IFP$=""THENRETURN OA 
HK 


FO 
IH 
KE 


-3600 PRINT"BEGINNING STROKES ARE THE STR 
OKES AT[4" "]THE BEGINNING OF WORDS:" 
-3620 PRINT"[RVSON][c 4]THE -COMMODORE -C 
OMPUTER[ RVSOFF ]" : PRINTTAB(19)"[EP]" 
+3639 PRINT"[c 5]IF MOST OR ALL ALL HAVE 


CA 
NJ 
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BEGINNING[7" "]STROKES THEN PRESS 1." 
+3640 PRINT'PRESS 2 IF THEY ARE MOSTLY АВ 
SENT:" 

+3650 PRINT" [RVSON][c 4][s МІНЕ [s 510ММ0 
DORE [s S]OMPUTER[RVSOFF]" : PRINTTAB(17)" 
[EP]" LN 
*3660 PRINT"[c 5]IF THEY „BOTH APPEAR EQUA 
LLY PRESS 3.[3"[DOWN]" OH 
*3699 GOSUBA00: GOSUB300: P$ (A)-T$(A, V) : RET 
URN DD 
*3800 РКІМТ"ТНЕ HEIGHT OF CAPITALS IS DET 
ERMINED IN" 

inel PRINT"RELATIONSHIP TO THE MIDDLE ZO 
+3820 PRINT"MEDIUM SIZED CAPITALS ARE лыш 
UT TWICE" 

+3830 РКІМТ"ТНЕ HEIGHT OF MIDDLE ZONE E 
TERS. TALL" 

+3840 PRINT"OR SHORT CAPITALS ARE TALLER 
OR SHORTER" EK 
"3850 РКІМТ"ТНЕМ THE MIDDLE ZONE. [DOWN] [D 
OWN]" EJ 
*3899 GOSUBA400:GOSUB300: P$ (A)-T$(A, V) : RET 
URN DD 
+4000 PRINT"LDOWN][c 1]D[c 5]ISK OR [c M 
T[c 5]APE?" 

+4005 СЕТА$ :ТЕА$=""ТНЕМ4005 

+4006 IFA$<>"T"ANDA$<>"D" THEN4O05S, 

+4010 IFA$="D"THENOPEN2,8,2,F$+",P,R":GOT 
04030 DM 
+4020 OPEN2,1,0,F$ со 
+4030 INPUT£2,H$,M,N: ЕОВТ=0ТО14 :INPUT#2,P 
$: IFI-4ORI-110RI-12THENGOSUB4050 PH 


JJ 


IF 


FA 


ТЕ 
ЕС 


*4035 P$(I)-P$:NEXT PI 
+4040) ЕОВТ=1ТОМ: INPUT£2, T1 (I) : NEXT: FORI-1 
TON:INPUT£2,T2(I):NEXT:CLOSE2:GOTO600 56 


«4050 Q$=!"": FORJ=1TOLEN(P$) :M$-MIDS(P$,J, 
1) :IFM$="-"THENM$="," GI 


+4069 Q$=Q$+M$ : NEXT: P$-Q$ : RETURN BA 
*4100 PRINT"[c 5][DOWN]":IFA$-"D'THENOPEN 
2,8,2, "0: 4 F$4" ,P,W':PRINT"[c 4]SAVING " 
F$:GOTO4120 JK 
+4110 OPEN2,1,1,F$ ED 
+4120 PRINT#2,H$;N$;M;N$;N:FORI=0T014:P$= 
P$(I):IFI-40RI-110RI-12THENGOSUBA150 DN 
+4130 PRINT#2,P$:NEXT BB 
+5140 FORI-1TOM:PRINT£2,T1(I):NEXT:FORI-l 
TON: PRINT#2,T2(I) :NEXT:CLOSE2:GOTO746 GB 


+4150 P$="": FORJ=1TOLEN(P$(I)) :M$=MID$(P$ 
(1),J,1):IFM$=", "THENM$="—" LE 
“4160 P$=P$+M$:NEXT: RETURN FK 
+4200 OPEN4,4:PRINT#4 , CHR$(14)CHR$(16)"25 

SCRIPT ANALYSIS"CHR$(15) PN 
*4210 PRINT£A,NSNS"NAME: "FSNSNS'HANDWRIT 

ING CHARACTERISTICS" DL 
+424) FORI=0T014:PRINT#4,G$(I)": 
EXT: PRINT#4,N$"DOMINANT TRAITS" 
4250 FORI=1TOM-1:PRINT#4 ,WS(T1(L))CO$; :I 


"PS(I):N 
IC 


FI/S=INT(1/5)THENPRINT#4 MB 
+4255 NEXT:PRINT#4,W$(T1(M) )DSN$ GP. 
+4270 FORI-1TON-1:PRINT£4,W$(T2(1))CO$; :I 
FI/5-INT(I/5)THENPRINT£4 JF 
+4275 NEXT:PRINT#4,W$(T2(N) )D$N$ GL 
+4280 CLOSE4:GOTO746 DH 
+5000 DATA AESTHETIC, AFFECTIONATE, AGGRESS 
IVE, ALOOF , AMBITIOUS BO 
“5010 DATA AMIABLE, ANXIOUS, ARDENT, ARROGAN 
T, ASSERTIVE 

+5020 DATA BALANCED, CALM, CAREFUL, CARELESS 
„CAUTIOUS 01 
“5030 DATA CONFUSED, CONSCIENTIOUS,CONSERV 
ATIVE, CONVENTIONAL, CRITICAL NI 
*5040 DATA DIFFIDENT,DILIGENT,EMOTIONAL,E 
NERGETIC, ENTERPRISING AF 
+5050 DATA EXCITABLE, EXTRAVAGANT, EXTROVER 
TED, FASTIDIOUS, FLEXIBLE 

“5060 DATA FRUGAL,GENEROUS, IDEALISTIC, ILL 
OGICAL BG 
“5070 DATA IMAGINATIVE, IMPATIENT, IMPRESSI 
ONABLE, IMPULSIVE, INDECISIVE 

+5080 DATA INDEPENDENT, INDIFFERENT, INDIVI 
DUALISTIC, INHIBITED, INSINCERE 

“5090 DATA INTELLIGENT, INTROVERTED, IRRITA 
BLE, LANGUID, LOGICAL 

“5100 DATA LOQUACIOUS,LOYAL,MATURE,METHOD 
ICAL,NERVOUS EH 
“5110 DATA ORGANISED, PASSIONATE, PASSIVE, P 
ATIENT, PRACTICAL KJ 
“5120 DATA REALISTIC, REASONABLE, REFLECTIV 
E, RESERVED, RESOLUTE IL 
+5130 DATA SECLUSIVE, SELF-DISCIPLINED, SEL 
FISH,SENSITIVE,SINCERE Е 
+5140 DATA SPONTANEOUS, TACTFUL, TACTLESS ‚0 
NDISCIPLINED, UNRELIABLE 

*5200 DATA SLANT,7,BASELINE,3,SIZE,3,CONT 
INUITY,2,STYLE,5,LINE SPACING, 4 FG 
“5210 DATA MARGINS, 5, PRESSURE, 2; SPEED,2,Z 
ONES, 5,0VALS, 2, T-1 BARS, 7, I-DOÍS, 5 LD 


KN 


“5220 DATA BEGINNING STROKES, 2,CAPITALS,2 GD 
“6028 DATA28, 160, 160,160, 160, 64,0,0,0 PG 
*6029 DATA29,10,10,10,10,10,4,0,0 PM 
*6030 DATA30,0,0,0,0,0,0,64,64 LC 
*6031 DATA31,0,0,0,0,0,0,16,40 GA 
+6033 DATA33,9,0,14,18,32,99,156,0 PM 
“6043 DATA43,0,0,0,0,0,2,6,12 EE 
“6060 DATA60,0,0,0,0,0,8,8,8 DA 
+6061 DATA61,6,10,4,0,0,0,0,0 GA 
+6062 DATA62,0,0,8,8,8,8,8,8 BG 
+6965 DATA65,10,10,18,50,44,44,56,40 LI 
“6067 DATA67,0,0,0,85,170,0,0,0 AH 
+6068 DATA68,0,0,85,170,0,0,0,0 DA 
«6069 DATA69,0,85,170,0,0,0,0,0 CJ 
+6070 DATA70,0,0,0,0,170,85,0,0 GB 
+6073 DATA73,8,8,12,4,6,2,3,1 GD 
-6074 DATA74,128,128,192,64,96,32,48,16 ЕР 


“6075 


DATA75,1,1,3,2,6,4,12,8 HA 
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“6077 
"6078 
"6082 
+6085 
+6094 
“6128 
*6129 
“6130 
“6131 
*6132 
*6133 
*6135 
*6136 
*6137 
*6139 
*6146 
“6141 
“6142 
“6143 
“6144 
“6145 
76146 
“6147 
“6148 
“6149 
“6150 
“6152 
“6153 
“6154 
“6155 
“6160 
“6161 
“6162 
“6163 
“6164 
“6165 
“6166 
“6167 
“6168 
“6170 
“6173 
“6176 
“6177 
“6178 
“6179 
“6180 
“6181 
“6182 
“6183 
“6184 
“6194 
"6195 
6196 
“6197 
“6198 
“6199 
“6200 
“6201 


DATA77,128,192,96,48,24,12,6,3 
DATA78,1,3,6,12,24,48,96,192 
DATA82,0,0,0,0,0,85, 170,0 


DATA85, 16,16,48,32,96,64,192,128 


DATA94,6, 10,19, 18,18, 18, 18,12 
DATA128,0,0,16,36, 68,68, 187,0 
DATA129,6,0,26, 38,66, 66, 189,0 
DATA130, 64, 64,92, 98,66,67,188,0 
DATA131,0,0,60,98,64,193,62,0 
DATA132,2,2,58,70,66,194,61,0 
DATA133,0,0, 28, 36,88, 96,191,0 
DATA135,0,0, 26,38, 66,66, 189,6 
DATA136, 64, 64,92, 98,66 ,66,129,0 
DATA137,0,8,0,8,24,40,199,0 


ПАТА139,64,64,88,100,72,88,135,0 


DATA140,40,40,40,40,40,48,223,0 
ПАТА141,0,0,84,106,74,74,137,0 
DATA142,0,0,92,98,66,66,129,0 
DATA143,0,0,28,43,82,98,60,0 


DATA144,0,32,44,50,98, 162,173,160 


DATA145,0,0,16,35,66,68,184,0 
DATA146,0,0,32,60,36,68,131,0 
DATA147,0,0,12,24,36,68,187,0 
DATA148,8,127,8,8,24,40,199,0 
DATA149,0,0,66,66,66,70,185,0 
DATA150,0,0,67,66,66,164,24,0 
DATA152,0,0,24,36,68,66,129,0 
DATA153,0,0,66,66,66,70,187,6 
DATA154,0,0,12,18,34,98,156,0 
DATA155,1,1,26,38,68,202,49,0 
DATA160,0,0,0,0,0,0,0,0 
DATA161,0,0,12,18,32,96,159,0 
DATA162,1,1,26,38,68,202,49,0 
DATA163,0,0,28,36,88,97,158,0 
DATA164,10,12,24,48,80,144,15,0. 
DATA165,1,0,0,8,24,104,134,0 
DATA166,0,0,0,44,50,68,135,0 
DATA167,0,0,0,0,3,5,5,10 
DATA168,1,1,26,38,68,202,49,0 
ПАТА170,12,24,16,38,66,196,56,0 
DATA173,0,0,0,0,0,0,7,0 
ВАТА176,0,3,0,0,0,0,0,0 
DATA177,8,255,8,8,24,40,199,0 
DATA178,0,192,0,0,0,0,0,0 
DATA179,8,30,8,8,24,40,199,0 
DATA180,8,8,8,8,24,40,199,0 
DATA181,8,232,8,8,24,40,199,0 
DATA182,8,11,8,8,24,40,199,0 
DATA183,0,0,0,0,0,0,63,0 
DATA184,8,8,8,63,24,40,199,0 
DATA194,0,0,3,13,18,38,217,0 
DATA195,0,0,9,27,45,81,160,0 
DATA196,0,0,3,13,18,38,217,6 
DATA197,9,0,17,50,86,154,17,0 
DATA198,4,12,12,20,36,66,129,0 
DATA199,0,0,16,56,73,138,12,0 
DATA200,12,8,16,48,32,0,0,0 
DATA201,0,0,0,0,1,3,2,6 
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*6202 DATA202,0,0,16,0,16,16,48,206 GK 


*6203 DATA203,0,0,0,0,16,16,48,206 DC 
76204 DATA204,8,0,0,0,16,16,48,206 NJ 
-6205 DATA205,0,0,1,0,16,16,48,206 CN 
-6206 DATA206,0,0,128,0,16,16,48,206 IH 
“6207 DATA207,4,8,9,9,16,16,48,206 FC 
+6209 DATA209,2,2,58,70,66,66,60,0 HE 
+6210 DATA210,16,0,16,48,80,16,12,0 DO 
+6211 DATA211,0,0,28,34,64,66,60,0 РІ 
+6212 DATA212,0,0,28,34,66,68,56,0 БТ 
+6213 DATA213,0,0,44,114,34,34,65,0 м 
+6214 DATA214,0,0,28,36,120,66,60,0 OM 
+6215 DATA215,16,126,16,16,16,18,12,0 JJ 
*6223 DATA223,0,0,0,0,0,93,255,0 DN 
*6224 DATA224,0,0,0,0,0,93,255,0 FC 
*6225 DATA225,0,0,18,18,18,164,219,0 FJ 
*6226 DATA226,0,0,0,0,124,212,87,0 MI 
*6227 DATA227,0,0,1,1,205,147,238,0 MK 
+6228 DATA228,0,0,32,0,36,109,182,0 PK 
*6229 DATA229,0,0,0,0,190,170,201,0 BN 
+623) DATA230,28,34,66,66,66,67,62,10 LM 
*6231 DATA231,16,46,34,66,66,130,1,0 EP 
*6232 DATA232,28,34,68,88,96,96,159,0 MB 


«6233 DATA233,28,38,74,82,98,198,57,0 MJ 


*6234 DATA234,24,24,24,24,24,36,195,0 ML 
*6235 DATA235,18,18,34,34,34,34,28,0. 01 
+6236 DATA236,0,0,0,0,24,24,255,24 BG 
*7000 DATAVERY RECLINED,RECLINED, LIGHTLY 
RECLINED, VERTICAL, LIGHTLY INCLINED PM 
+7902 DATAINCLINED, VERY INCLINED, IRREGULA 

R DL 
+7010 DATASTRAIGHT, ASCENDING, DESCENDING, U 
NEVEN EI 
+7020 DATAVERY LARGE,LARGE,MEDIUM,SMALL ОЕ 


+7030 DATAMOSTLY CONNECTED,MOSTLY UNCONNE 
CTED DD 


“7032 DATABOTH CONNECTED & UNCONNECTED ВЕ 
"7040 DATAROUND, ANGULAR,ROUND & ANGULAR,O 
RIGINAL, LEGIBLE, ILLEGIBLE/MESSY KA 
“7050 DATAVERY WIDE,WIDE,MEDIUM, NARROW, ТА 
NGLED FH 
*7060 DATABOTH NORMAL,BOTH NARROW,BOTH WI 
DE,WIDE LT/NORMAL OR NARROW RT CF 
*7062 DATANARROW OR NORMAL LT/WIDE RT,OTH 
ER EG 


+7080 DATAHEAVY , LIGHT , MEDIUM, FAST, SLOW, ME 
DIUM NC 


+7090 DATASYMMETRICAL, EXTENDED UZ,EXTENDE 


D LZ IH 
-7092 DATABOTH UZ & LZ EXTENDED, BOTH UZ & 
LZ SHORT, IRREGULAR 00 
“7100 DATAMOSTLY OPEN,MOSTLY CLOSED, BOTH 
OPEN & CLOSED Ов 
+7110 DATAREGULAR, LONG, SHORT, ABSENT, LEFT. 
RIGHT, HIGH, LOW GN 
“7120 DATAPRECISELY PLACED, ABSENT, HIGH, RI 
GHT, LEFT, DASHED NF 


+7139 DATAMOSTLY ABSENT,MOSTLY PRESENT, BO 
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ТН ABSENT & PRESENT 
“7140 DATATALL MEDIUM, SHORT 

+8300 DATA5,39,40,41,44,65,67 

+8301 DATAS,4,39,40,41,44,67,4,39,43,44, p» 
6,71 

+8362 DATA7,4,15,31,40,41,49,62,63,5,2,6, 
8,19, 68,69 Е 
+8304 DITA7,2,8,23,24,37,56,69,70,6,2,8,2 
3,26,38,56,68,3,7,14,16,7 


LC 
EP 
ОЕ 


РЇ 


15) сс 
“20 $C-1024:04-198:QB-214:WW-54272:GU-0:G 
Е=0:ТТ=0:01=0 DB 
[RVSON][WHITE]YOU WIN [3"!"][R 
(2)-"[12" "]" HA 


D +50 WF-54276:P1-54273:VL-54296:4D-54277:F 


0-1:СІ,-53280: СН-646 
60 РОКЕСІ,,3:РОКЕСН,7:Р0КЕ53281,0:РЕІМТ"| 


+8310 DATA6,11,17,29,53, а 66,69,5,5,24,2 CLEAR]" ок 
5,26,35,70 CH «70 REM JD 
*8312 DATA3,26,39,54,73,5,7,26,39,54,73,7 +80 FORT=1T0500:F=1:F=0:NEXT л 
4 ЕН -90 FORI-1TO6:READH(I):READL(I):READD(I): 
*8320 DATA4,9,22,24,27,28,5,9,27,32,35,40 | NEXT: REM * PITCH VALUES 

‚42 00 -100 FORI=1T018: PRINT" [HOME] 3" DOR] ]"; _ 
*8322 DATA3,18,55,61,68,9,1,13,18,21,22,2 SPC(I);" [s Q]":FORT=1T080:NEXT:NEXTI РЕ 


9,41,45,58,71 

«8330 DATA6,13,19,22,34,53,61,64,2,34,35, 
68,4,1,20,25,42,52 ОР 

IM DATA4,1,2,6,30,32,6,3,20,24,36,37,4 
3 

“8342 DATA2,1,42,45,3,1,35,42,45,4,13,17, 
51,61,66 

“8344 DATA8,14,16,35,36,37,39,45,54,73 

“8350 DATA2,4,63,65,4,13,45,55,71,66,3,11 
,28,49,60 

“8352 DATA6,14,16,31,34,47,70,72,5,14,31, 
34,35,63, 73 

+8360 DATA3,11,13,17,55,4,29,50,60,68,72 EY 

*8362 DATA2,4, 62, 65, 1, 15У 21, 4; 27, 29,32,44 
,50,0,0 

«8370 DATA4,10,24,25,56,64,5,1,21,30,37,4 
8,68,0,0 

+8380 DATA8,1,3,5,10,22,25,30,38,70,8,11, 
12,13,18,29,48,57,58,62,0,0 

+8390 DATA3, 6, 11, 12, 13, 5,5,33,35,37,45,68 
,4,5,17,56, 59, 60 НН 

.8392 DATAS, 5, 33, 35,37,45,56,3,18,23,59,6 

0 КА 

“8394 DATA4,14,16,23,37,39 10 

"8400 ПАТА5,13,15,41,46,63,71,3,17,43,51, 
59,1,51,69 

«8410 DATA3,11,12,13,66,3,24,36,47,64,2,2 
1,57,63 

+8412 DATA2,14,73,74,1,15,39,2,3,38,72,2, 
26, 33,35, 1,57,58 

“8420 ПАТА4,10,17,40,42,52,1,19,53,1,33,3 
5 BN 

+8430 DATA3,11,13,17,55,2,14,73,74,0,35,2 
,17,52,59,2,15,21,39,4,20,35,36,42,47 

“8440 ПАТАЗ,5,9,10,27,0,40,2,11,30,63 


BRAITNFRAME 


FROM PAGE 45 
“10 DIM R(5),RC(5),N(5),T(15) ,W$(15) ,W2$( 


co 
KG 


ME 


DL 


BK 
MN 


+240 PRINT" COMPOSED OF NUMBERS FROM [WHI 
Е 


DO +110 L(1)2225:1(2)2160:R(1)297:R(2)2160:Q ГЕ 


=1163:POKEQ, 169 
+120 LF-Q-1:RT-Q*1:FORI-1TO10:FORJ-1T02:P 
OKELF, L(J) : POKERT, R(J) 


ЕК +130 FORT-1TO60:NEXT:NEXTJ: LF2LF-1 : RT-RT4- 


1:КЕХТІ ЕР 
+140 FORT-1T0200: NEXT :ММ$="ВВАТМЕКАМЕ" : Q= 
LF+2 OK 
“150 FORI-1TO10:M$-MID$(MM$,I,1):MeASC(M$ 
):РОКЕО,М+128-64 30 
*160 FQ=FQ+10:GOSUB1220:Q=Q+2: а 
:МЕХТ:МЕХТІ 
He OET FQ=FQ+19:GOSUB1220: PRINT 
c 6)" 


H 
CJ -180 PRINT"[DOWN][DOWN]"; TAB(9);"AN EXCER 
EI 


CISE IN LOGIC" 
*190 PRINT"[DOWN][DOWN]";TAB(13);"FOR THE 
C-64 [ DOWN ] [DOWN ] L7" ЕРТ)" ] ВУ" AG 


E +200 ,PRINT" [DOWN] [DOWN]" ; TAB(14) ; "NORM vo 
ML 


GEL" 
“210 FORT=110425:F=1:F=0:F=T/33:NEXT DJ 
«220 PRINT"[HOME][6"[DOWN]"]";:GOSUB1260 BA 
«230 PRINT" [PURPLE] І WILL SELECT A 3 TO 
5 - DIGIT NUMBER[3" "](YOUR CHOICE) ,"; 


DI 


ТЕ]0 - 9.[PURPLE] (NOTE: EACH NUMBER"; GC 


«250 PRINT" CAN BE USED [WHITE]MORE THAN 
HP 


ONCE) . [PURPLE] 
"TRY"; 


AFTER ENTERING YOUR[3" 
KN 


DC -260 PRINT" (YOU HAVE 15), I WILL TELL YO 


U HOW MANY NUMBERS ARE"; HI 
*270 PRINT" CORRECT & IN THE [WHITE]COR- 
ВЕСТ POSITION, "; 
+280 PRINT" [PURPLE]AND HOW MANY ARE CORR 
ECT BUT IN THE [WHITE]WRONG[PURPLE] POSI 
TION." 16 
+290 PRINT"[DOWN] IF YOU GIVE UP DURING T 
HE GAME, JUST[4" "]TYPE IN"; MM 
*300 PRINT" [WHITE]E[PURPLE], AND I'LL TE 
LL YOU WHAT THE[3" "]SOLUTION WAS AND"; 
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“310 PRINT" END THE GAME.":PRINTTAB(13);" 
[DOWN][WHITE]GOOD LUCK!" Bi 
“320 PRINT"[DOWN] ENTER THE SIZE OF THE N 

UMBER (3/4/5)"; FJ 


*330 GETND$:IFND$-'"THEN330 BG 
*340 IFASC(ND$)&510RASC(ND$)253THEN330 ВЕ 
“350 ND-VAL(ND$) :6051/81260 JF 


+360 IFND<>OLTHENGF=0:TT=0:GU=0:FORI=1TO1 
5:W$(1)=" ":W2$(1)=" ":NEXT ы 
“370 PRINT" [CLEAR] [ DOWN ]";TAB( 19) ;"[RVSON 
]";ND;" NUMBERS[RVSOFF |" IN 
+381) PRINT" [DOWN] [DOWN ]"; TAB( 28) ; "NO. [3" 
"]WRONG" 

+39) PRINT" TRY";TAB(27);"[CYAN J& [WHITE] 
POS[3" "РОЗ" 

+400 POKEQB,22:PRINT:PRINT" ([YELLOW]'R' 
[WHITE]TO RE-DO LINE / [YELLOW]'E" [WHITE 

] TO END GAME)" м 
+410 TT-TT41: TW-0:SP-10:Pe9-ND:SP-10:IFND 
=3THENSP=12 NI 
+420 FORT=1TOND:R(I)=INT(RND(()*16) :NEXT: 
ВС-7:ВВ-1 ЕМ 


+430 POKEQB, 6: PRINT: JE 
*44() REM JD 
*450 REM *** START OF PLAY LOOP: *** IJ 
*455 JD 
*460 :У6=0:Е082=11015:РЕТМТА$ (3) ВЕ 
+470 PRINT "[UP][c 31" 'OKECH , BC+BB:W= 

6 MO 
+480 FORI-1TOND PM 
+490 GEIN$:IFN$=""THEN490 LK 
+50) IFN$="E"THENGOSUB1370:GOTO870 MN 


«510 IFN$="R"THENGOSUB1 260: PRINT: PRINT" [0 
Р ]";5Р0(3) ;A$(3) :GOTO470 DJ 
+520 ІҒА5С(М%)<480КА5С(М5) >57ТНЕМ490 ВР 
“530 PRINTTAB(W) ; №; :N(I)=VAL(N$) :WeW+P:N 
ЕХТІ кс 
+540 FORI-1TOND:RC(I)-R(I):FQ-N(I)425:G0S 
081220 ЕН 
*550 POKE53289,N(I)+1:FORJ=1T0450:NEXTJ:N 
EXTI LJ 


*560 REM 
+570 REM *** CORPOS COMPARATOR: *** 
“580 СР=0: FORI-1TOND: IFN(I)-RC(I)THENCP-C 


JD 
NM 


, Pe1:N(I)-98:RC(I)-99 ME 
+590 NEXTI: IFCP=ND-1THENTW=TW+1 LC 
“600 REM JD 


+610 REM *** COR COMPARATOR: Же OL 
+620 CO=0:FORI=1TOND:FORJ=1TOND: IFN(I)=RC 
(J)THENCO=CO+1 :N(I)=98:RC(J)=99 

«630 NEXTJ:NEXTI 

+640 IFCP=NDTHEN740 

+650 REM *** IN-GAME PROMPTS: *** 

+660 IFCP<>NDTHEN PRINTTAB(28);CP;"[4" "] 
";00:ВВ--ВВ 


NB 
KA 
OM 


“670 IFND-3ANDZ-10THENR-4 :GOSUB1070 KH 
“680 IFTW=4THENR=2:GOSUBLO70 LP 
*690 IFCP&CO-NDANDYG-OTHENR-1:GOSUB1070 ОҒ 


“700 IFZ-l14THENR-3:GOSUB1070 IG 
“710 IFZ-l5THENR-5:GOSUB1070: GOTO946 Ов 
+720 NEXTZ NM 
“730 REM *** WIN ROUTINE: Жж OL 
740 F=2:G=1:POKECL, 2: PRINT" [CLEAR ] [DOWN] 

[DOWN]";TAB(5);A$(1);SPC(7);2;" TRIES" ЕЈ 


+750 GOSUB1310: PRINT" [DOWN] [DOWN]" ; ТАВ(12 
);"[PURPLE]THE ANSWER WAS: [DOWN] [DOWN] [W 
HITE]" DC 
«760 PRINTSPC(SP) ; :FORI=1TOND:PRINTR(I);S 
PC(6-ND) ; :NEXT: PRINT FK 
+770 T(Z)=T(Z)+1:T$=STR$(T(Z)):W$(Z)=MID$ 
(T$,2, 1) s IFT(Z) «10THEN790 OL 
-780 W2$(Z)=RIGHT$(TS, 1) 07 
+790 ТЕ2 00070820 EL 
+800 PRINT" [DOWN ] [DOWN] [CYAN JUNBELIEVEABL 
E! 'GIVEUPS' REDUCED TO '9'1":GU=0:GF=1 HM 
+819 6070940 DB 
+820 IFZ<=ND+2THENPRINT" [DOWN ] [DOWN ] [CYAN 
]NEXT TIME, I'LL HAVE TO GIVE U A HARDER > 
ONE!" :GOTO946 IN 
+830 IFZ<ND+6THENPRINT" [ DOWN ] [DOWN] [CYAN] 
NOT BAD, ВОТ U NEED MORE PRACTICE!":GO 
T0940 ME 
+840 PRINT'(DOWN][CYAN]YOU NEED ALOT MORE 
PRACTICE! TRY AGAIN!":GOTO940 CI 


*850 REM JD 
+860 REM *** GIVEUP ROUTINE: Жж LD 
“870 GU=GU+1: IFGF=1THENGU=0 FB 


+880 POKECL, 2: PRINT" [CLEAR] [ 3" [ DOWN ]" ]" ; T 
AB(12); THE ANSWER WAS: [ DOWN ] [DOWN ] [WHIT 
E]" 10 
+890 PRINTSPC(SP) ; :FORI=1TOND:PRINTR(I);S 
PC(6-ND) ; : NEXT: PRINT 

*900 PRINT"[DOWN][DOWN][CYAN] TRY AGAIN! 
YOU MIGHT GET IT NEXT TIME!" 


*910 Е=2:6=0 JM 
+920 REM JD 
“930 REM *** STATS: *** FI 


+940 PRINT:PRINT"[DOWN][c 7]TRIES: 123 
n 


ALS sped ВЯ А23 4.8" Е 
+950 PRINT" WON:[c 6] ";:ЕОВІ=1Т015:РЕІ 
NTW$(I);" ";:NEXT NI 


*960 PRINT: PRINTTAB(8); :FORI-lTOLS:PRINTW 
2$(Т);" ";:МЕХТ ШЕ) 
“970 PRINT:PRINT"[DOWN][c 3114" "]TOTAL G 
AMES: ";TT;SPC(3);"GIVEUPS:";GU 
+980 PRINT" [DOWN ][WHITE][5" "]DO YOU WANT 

TO TRY AGAIN?" 
+990 PRINT" ([YELLOW]Y/N[WHITE] OR [YELL 
OW]I[WHITE] TO CHANGE # OF DIGITS)"; GD 
“1000 GETYN$:PRINT" [HOME] [DOWN] [DOWN ]" ; TA 
B(5);A$(F):F-F-G GF 
*1010 IFYN$-"Y"THENFQ-150:GO0SUB1220:GO0TO3 
70 GI 
+1020 IFYN$-"I"THENPRINT" [CLEAR] Ао 
"]":GOSUB1260:OL-ND:GOTO236 
+1030 IFYN$<>"N"THENG=-G; FORT-1T0400: ear 
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IMPORTANT! “195 ол ж\е background are Bug Repellent ine codes. Do not enter them! Pages 85 and 86 explain these codes 
* and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


—.. 1G0TO1000 KN 
1040 PRINT" [CLEAR]":END СІ 
“1050 REM JD 

. +1060) REM *** IN-GAME PROMPTS: JJ 
*1070 ONRGOTO1080,1100,1120,1130,1150 Dc 


+1080 FQ-200:G0SUB1220:PRINTTAB(6) ;"[YELL 
OW]YOU'VE GOT 'EM ALL NOW!" BD 
+1090) YG=1:GOTO1140 ск 
+1100 GOSUB1370:PRINTTAB(8) ;"[YELLOW]GOIN 
С FOR BROKE, EH?":TW=99:GOTO1140 LH 
1120 FQ-0:GOSUBI220: PRINTTAB(6) ;"[YELLOW 

С ТІНІ5 IS YOUR LAST СНАМСЕ!":60Т01140 

“1130 08081370: PRINTTAB(S) ;" L'YELLOW]YOU 
HAVEN'T GOT IT [CYAN]YET?!" PA 
*1140 PRINT" [UP]"; : FORT-1T0350: X-T/33: NEX 
T:RETURN PA 
“1150 GOSUB1379:PRINT:PRINT"[5" "][ YELLOW 

.. 10000 GUESS, BUT THE ANSWER WAS:[4" "][W 

о BRITE]" МР 
“1160 PRINTA$(3) 
+1170 PRINT"[UP][UP]" ; SPC(SP) ; : FORI-1TOND 
:PRINTR(I);SPC(6-ND); :NEXT:PRINT 
*1180 POKEQA,O:PRINT"[8" "][c 3]HIT ANY К 

EY TO CONTINUE [s Z]":WAITQA,l IK 

1190 PRINT"[CLEAR][ 4" [DOWN ]" ]" : GOSUBI 260 

22:620: POKEQA , 0: RETURN 

200 REM 

+1210 REM Жж PITCHES: 

1220 POKEVL, 14 :РОКЕИЕ, О:РОКЕР1 ,Ғ0ғ20:РОК 


HB 


JG 
KE 


JD 
FM 


| EAD, 25: РОКЕМЕ, 17 LN 
} 21230) ЕОЕТ-170100:ХЕХТ:РОКЕМЕ,0: RETURN РМ 
1240 REM т 
1250 REM ЖЖЖ SWEEP: NH 
1260 FORI-1TO22:POKEWWHI, 0): : NEXTI NF 


71270 POKEWW+24,12:POKEWW+5, 80: POKEWW+6,2 


_ 43:POKEWW43, 4: : РОКЕММ+4 ‚129 AI 
1280) FORI-OTOlA4OSTEP4 : POKEWW+1 , I: NEXTI : P 

OKEWW+4, 128: FORIZ1TO50: NEXTI JH 

KH 

IB 


0.1310 FORT=WWTOWW+24: POKEI,0:NEXT 
*1320 POKEVL,6: POKEAD, 31 : POREWW--3 , 200: POK 
| EWW+2, 200: POKEWW+6 , 89 BO 
+1330 FORI-1TO6 JB 
*1340 POKEWW+1,H(1):POKEWW,L(I):POKEWF,65 ВА 
"1350 FORT=1TOD(I) :NEXT: POKEWF , 64: FORT=1T 
1010: NEXT: NEXTI : RETURN 
1360 REM *** RAZZ: 
1370 POKEVL, 15: POKEAD, 45 :РОКЕАО+1 ‚165 
1380 РОКЕМЕ,33:РОКЕМЕ-3,6:РОКЕМЕ-4,5 
1390 FORT-1TO600:NEXT: POKEWF , 32 : POREWF-3 
0: POKEWF-4 , 0: RETURN HD 
400 DATA 22,96,120,25,30,120,28,49,120 MG 
"1410 DATA 33,135,325,28,49,110,33,135,10 
00 


ы 


HJ 


E loc | 


*10 REM**SET UP THE PRINTAT ROUTINE** 
*12 АТ=679 : ЕОВМ=АТТОАТ+22 : READM: POKEN ,M: i 


EXT DJ 
+14 DATA32,180,2,132,251,32,180,2 AN 
+16 DATA166,251,76,240,255,32,253,174 > КО 
*18 DATA32,158,173,32,170,177,96 PI 
+20 REM**EXAMPLE PROGRAM USING PRINTAT** GA 
-22 РОКЕ53280,14:Р0КЕ53281,12 ІМ 
+24 PRINTCHR$(147)CHR$(144) BM 
+26 SYSAT,2,(:PRINT"NOW" CK 
+28 SYSAT,5,2:PRINT"YOU" DG 
+30 SYSAT,8,4:PRINT"CAN" PI 
+32 SYSAT,11,6:PRINT"PRINT" KL 
+34 SYSAT,8,17:PRINT"NEATLY" AP 
+36 SYSAT,11,16:PRINT" FORMATTED" NN 
+38 SYSAT,14,17:PRINT"SCREENS" EP 
+40 РОВМ=ОТО2%*[РТ ]STEP[PI ]/40 АР 
+42 L-INT(124SIN(N)*8) ЕВ 
+44 C=INT(20+COS(N)*8) FO 
+46 SYSAT,L,C:PRINT"*" :NEXT AL 
+48 SYSAT,22,0 DE 


» LUCKYLOTTERY 


FROM PAGE 53 
“30 L$="[HOME][23"[DOWN]"]" 


*40 GOSUB 1000:60Т0 1500 Nó 
*50 DIM NUM(45), TN(NN) , PF(NN) :С=0:В=0 ML 
*70 PRINT "(CLEAR]":POKE 53280,6:POKE 532 

81,1 01 


"80 PRINT LEFT$(L$,2)TAB(8)"[c 4 [с А] [21 
"Га *]"][c S]" ML 
+90 т LEFT$(L$,3)TAB(8)"[s B][21" "][ ido 

2 3 


1109 PRINT LEFT$(L$,4)TAB(8)"[s Rl [RED] 
LUCKY LOTTO MENU[c 4][3" "][s HM 
+120 PRINT LEFT$(L$,5)TAB(8)"[s "hu w 
[s B]" MJ 
-125 PRINT LEFT$(L$,6)TAB(8)"[c Z][21"[s 
*]" [с х1" Ер 
+130 PRINT LEFTS(LS, JO)TAB(B)"[BLUE](RVSO | 
N][1][RVSOFF] -LOAD NUMBER FILE" 

+140 PRINT LEFTS(L$, О О 
RVSOFF] -ENTER CURRENT NUMBERS" PM 
+150 PRINT LEFT$(L$, 12)TAB(S)"TRVSON]ESIE | 
RVSOFF] -DISPLAY ALL NUMBERS 

+160 PRINT LEFT$(L$, тв УЗО 
RVSOFF] -6 MOST COMMON NUMBERS" 

:170 PRINT LEFTS(L$, 1A )EAB(S)"ERVSONTISIE | 
RVSOFF] -END SESSION" 

+175 PRINT LEFTS(L$, 20YTAB(IG)"[REDJIOUR ^ 
CHOICE ? [RVSON][BLUE][1-5] [RVSOFF]" 
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180 GET AN$:IF AN$-"" ТНЕМ180 CH 
*190 AN-VAL(AN$) BK 
+200 ON AN GOSUB 730,220,310,420,660 GG 
+210 REM ======== —— JO 
*211 REM **** INPUT NUMBERS **** ML 
*212 REM ------------------ JO 
+220 PRINT "(CLEAR]":POKE 53280,12:POKE 5 
3281,1 
-230 PRINT ,TAB(A)" [RED] [DOWN] [$ U]J(30"[s 
*]"][s I]" 
*240 PRINT TAB(4)" [RED] [ВУЗОМ] ENTER THIS 
WEEKS LOTTO NUMBERS " ОР 


*250 PRINT TAB(A)"[RED][DOWN](UP](s J][30 
"Па *]"][s К)" AA 


+26) PRINT LEFT$(L$,8):T-6 CB 
*270 FOR А-1 TO 6:PRINT TAB(10)"NUMBER "; 

A;:INPUT N(A) EJ 
+280 FOR 5-1 TO NN:IF N(A)=S THEN630 NO 
*290 NEXT:NEXT EF 
*301 607070 PF 
“304 REM ===е=знненнавывананые==== JO 
“305 КЕМ **** DISPLAY NUMBERS **** GG 
+306 REM —————————— JO 


“310 PRINT "[CLEAR]":POKE 53280,3:РОКЕ 53 
281,1:T=4 JJ 
“320 PRINT TAB(6)"[UP][RED][RVSON] CURREN 
T LOTTO NUMBER LIST " BM 
“330 FOR 5-1 TO NN:IF 5-23 THENPRINT "[HO 
ME)": T=24 EJ 


“350 IF S>9 THEN370 ВЕ 
“360 PRINT "[BLUE]"TAB(T) ;S" "TN(S):GOTO3 
80 LK 
*370 PRINT "[BLUE]"TAB(T-1);S" "TN(S) DH 
*380 NEXT ТА 
“390 PRINTLEFT$(L$,25)"[c 4] PRESS [RVSO 
№] Fl [RVSOFF] FOR 6 MOST COMMON NUMBERS 
AE PB 
*400 СЕТ AN$:IF AN$="" THENAOO DC 
"410 IF AN$<>"[F1]" THENAOG NC 
%414 КЕМ sesessqssesesssssss=ss== НІ, 
„415 REM **** COMMON NUMBERS **** ІС 
"416 REM sassassesssassassesassss HL 
*420 FOR Т=1 TO NN:IF TN(I)>B THENB-TN(I) НЕ 
+430 NEXT 

-445 ть РОКЕ 53280,6:РОКЕ 5 
81,1 01 


+45) PRINT LEFTS(LS, ИО 
6 MOST COMMON NUMBERS " 
*460 PRINT LEFT$(L$, ВА) "WUNDERS TAM 


(22)"TIMES" PN 
*470 FOR Е=1 TO 6:SW=0 Go 
*480 IF В<-0 ТНЕМ540 LK 
*490 FOR І-1 TO NN:T-14 LD 
*495 IF 1>9 THEN T-13 ML 


*500 IF TN(I)-B THEN PRINT ТАВ(Т);1;5РС(7 
);TN(I):SW=1 MM 
“510 NEXT IA 
+520 IF SW=0 THENB-B-1:GOTO486 ЕМ 


*530 В=В-1 ВА 
*540 МЕХТ Е MJ 
+550 PRINTLEFT$(L$,22)TAB(5)"PRESS [ВУЗОМ | 


][BLACK]FI[RVSOFF][RED] TO ENTER MORE NU 
MBERS" 

+560 PRINT TAB(5)"PRESS [ВУЗОМ] [BLACK ]F3[ 
RVSOFF][RED] TO VIEW ALL NUMBERS" 

*570 PRINT TAB(5)"PRESS [RVSON][BLACK ]F5[ 


GF 


RVSOFF][RED] FOR MAIN MENU"; ок 
+580 GET A$:IF А$="" ТНЕМ580 JI 
+590 IF А$="[Е1]" THEN220 KJ 
+600 IF A$="[F3]" THEN310 KK 
+610 IF А$="[Е5]" THEN 70 IP. 
+620 IF A$<>"[F1]" OR A$O"[F3]" OR O"[F — | 
5]" THEN586 JL 
+630 TN(S)-TN(S)41:G0T0290 НЕ. 
640 REM ====== —— HL 
+650 REM * WRITE ROUTINE жне MA 
+660 REM = HL 
670 OPEN 2,8,2,"@0:"4NFS+",S,W" OA 
+68 FOR 5-1 TO NN PE 
+690 PRINT#2,TN(S) ЕН 
+700 NEXT IA. 
+710 CLOSE 2:END JB. 
+715 КЕМ —— HL 
+720 REM Жә READ ROUTINE жә co 
+725 REM = 
+730 
81,6 ОР. 
+735 PRINT LEFT$(L$,10)TAB(10)"[WHITE]LOA 
DING NUMBER FILE[3"."]" HF 
+736 PRINT LEFT$(L$,12)TAB(11)"ONE MOMENT 
PLEASE" BC. 
+740 ОРЕМ 2,8,2,"@0:"4NF$4",S,R" oJ 
+750 FOR 5-1 TO NN РЕ. 
+760 INPUT#2,TN(S) ср 
+770 NEXT $ NH 
-780 CLOSE 2:GOTO 70 AA 
Е анана айна аас МЕ. 
+991 REM Әже SPRITE MOVEMENT 9% NO. 
+992 REM = —— МЕ. 


“1000 FOR 5-50880 ТО 51116: READ А:РОКЕ S, | 
A:NEXT 00 
“1010 DATA 169,255,45,0,198,240,16,169,0, | 
141,0,198,162,21,189,0 MN 
*1026 DATA 197,157,0,198,202,208,247,162, | 
1,169,1,141,80,197,173,80 KK 
“1030 DATA 197,45,0,197,240,3,76,243,198, ] 
232,232,14,80,197,208,238 07 
“1040 DATA 76,49,234 FG 
“1050 DATA 169, 0,29,0,197,208,3,76,97, 199 
,169,128,61 

+1060 DATA 9,197, 240,48,254,0,198,208,40, 
222,255,207, 76,144,199,80 LE 
“1070 DATA 197,45,16,208,208,12,173,16, г 
8,13,80,197, 141, 16, 208, 76 

*1080 DATA 43, 199, 173, 16, 208,77,80,197, DM | 
1,16,208,189,0,197, 157, 0 
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*1090 DATA 198,76,97,199,222,0,198, 208,40 
| 1254,255,207,208,29,173,80 АВ 
| +1100 DATA 197,45,16,208,208,12,173,16,20 

8,13,80,197,141,16,208,76 

“1110 DATA 91,199,173,16,208,77,80,197,14 

1,16,208,189,0,197,157,0 

*1120 DATA 198,169,0,232,29,0,197,208,3,7 

6,140,199,169,128,61,0 

«1130 DATA 197,240,11,254,0, 198,208, 20,22. 

2,255,207, 76,134,199,222,0 

*1140 DATA 198,208,9,254,255,207,189,0,19 

,0,198,202,76,233,198 FP 
() DATA 169,255,221,255,207,240,3,76,4 
—3,199,173,80,197,76,17,199 BD 

+1169 DATA 120,169,192,141,20,3,169,198, i 

41,21,3,88,96 

-1170 $P=53248:SS=50433:PRINT "[CLEAR]":P 

ОКЕ 53280,9:РОКЕ 53281,0 
ЖЕСЕ 

*1190 FOR L-SS TO 55-16 STEP 2 

*1200 POKE L,H:POKE L+1,V ос 

+1210 HeINT(RND(0)*247)41:V-INT(RND(0)*3) 


KC 


JF 
FH 


+1 :МЕХТ cH 
| 11220 POKE 59688, FF FO 
_ +1230 FOR S-2040 TO 2047 MK 
| +1240 POKE S, 14: NEXT EA 
*1250 FOR 5-896 TO 959:READ CH NE 

7 +1260 POKE S,CH:NEXT HG 
91270 5-1 DL 

+1280 FOR L=53287 TO 53293 СЕ 

2 +1290 POKE L,S:S=S+1:NEXT:POKE 53294,14 10 


1310 
*1320 


5=20:А=30 
FOR 1=53248 ТО 53263 STEP 2 


POKE L,S+48:POKE 1+1,А+40 ОЕ 
S=S+25:A=A+25:NEXT KB 
POKE 53269, 255 FI 


POKE 51432, 255 
SYS 51104 

RETURN 
ЕМ 
REM Ve SPRITE DATA жез 
REM == - PM 
DATA 1,129,128,63,255,252,127,255,2 
54,255,255,255,255,255,255 10 
+1400 DATA 241,129,128,241,129,128,241,12 
9,128, 255,255, 252,255,255, 254 

ES DATA 127,255,255,63,255,255,1,129,1 


GI 
43,1,129,143,1,129,143,255,255,255,255 NH 
%1420 DATA 255,255,127,255,254,63,255,252 
1,129,128,1,129,128,0 
00 PRINT:PRINT:PRINT TAB(4)"[c 6][RVSO 
]$[RVSOFF][11" "][RVSON]$[RVSOFF]" 
510 PRINT TAB(4)"[RVSON]$[RVSOFF][11" " 
[RVSON]$[RVSOFF]" 
1520 PRINT TAB(A)"[RVSON]$[RVSOFF][3" "] 
[RVSON] [RVSOFF] [RVSON] [RVSOFF][5" "][ 


m net 


[RVSON] [RVSOFF] [RVSON] [RVSOFF][5" "][ 
RVSON] [3"$" ][RVSOFF] [RVSON] [RVSOFF] [R 
VSON] " DD 
*1546 PRINT TAB(8)"[RVSON] [RVSOFF] [RVSO 
№] [RVSOFF] [RVSON][3" "][RVSOFF][5" "][ 
RVSON] [RVSOFF] [RVSON] [RVSOFF] [RVSON] 


[3" "]" AL 

PO -1550 PRINT TAB(8)"[RVSON][3" "][RVSOFF] 
[RVSON] [RVSOFF][7" "][RVSON][3" "][RVSO 
FF] [RVSON] " BC 
1560) PRINT TAB(12)"[RVSON [RVSOFF] Suam 
][RVSON] [sEP] [RVSOFF][6" "][RVSON] [RV 
SOFF] [RVSON][3" "]" BB 
*1570 PRINT TAB(12)"[RVSON][3" "][RVSOFF] 


[RVSON] [RVSOFF][sEP][6" "][RVSON] [RV 
SOFF][3" "][RVSON] " 
*1580 PRINT TAB(16)"[RVSON 
] [RVSON] [RVSOFF] [RVSON 
][RVSON] [RVSOFF] [RVSON][3" "]" GD 
+1590 PRINT TAB(16)"[RVSON] [RVSOFF][c *] 
[RVSON] [RVSOFF] [RVSON][3" "][RVSOFF][6 
" "][RVSON] [RVSOFF] [RVSON] [RVSOFF] | 
RVSON] " 
+1600 PRINT TAB(21)"[RVSON] [RVSOFF] 
"J[RVSON] [RVSOFF] [ВУЗОМ] " 
+1610 PRINT TAB(21)"[RVSON] [RVSOFF] 
"1[кузон][з" "j" 
+1620) PRINT:PRINT "[WHITE][4O"[c P]"]" 
+1639 PRINT "[UP][RVSON][c 2][18" "] 
К] [с 2][21" "]" 
+1649 PRINT "[UP][RVSON 
BLE[c 2] [BLACK] [c 2 
e 212" "J" 

:1650 PRINT "[UP][RVSON 
c 2)[19" "]" 

+1660 PRINT "[UP][WHITE 
+1670 PRINT TAB(10)"[UP 
зету 

+1680 PRINT TAB(19)"BOB LLORET" 

+1690 PRINT:PRINT TAB(11)"[WHITE]PRESS Ж, 
ED]Fl [WHITE]TO START"; 


PB 
[c *][RVSOFF 
[RVSOFF][6" " 


MN 
10" 

сі, 
10" 
ІН 
РО 
ВГАС 

DO 


[11" "][WHITE]DOU 

[WHITE ]SOFTWARE[ 
LK 

[19" "][BLACK] [ 
IH 


[40"[c Y]"]" 
[c 2]DESIGNED BY[ 
PE 
NL 


MC 


*1700 GET А$:ТЕ A$="" THEN 1700 T 
1710 IF A$="[F1]" THEN FOR A-SP TO SP47: 
POKE SP421,0:NEXT:GOTO 2000 сс 
+1720 ТЕ A$<>"[F1]" THEN 1700 JG 
“2000 PRINT" [CLEAR]" HH 
“2010 PRINTLEFT$(L$,10)" ENTER YOUR FILE 
NAME"; : INPUT NF$ 

“2015 IF NF$="" THEN 2010 LA 


“2020 PRINTLEFT$(L$,12)" ENTER HIGHEST NU 
MBER IN YOUR LOTTO";:INPUT NN 
“2025 IF NN<1 THEN 2020 
+2030 607050 


ALL THE PROGRAMS IN THIS 
SUE OF AHOY! ARE / 


IE 
PD 


AHOY! 
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SMALL THINGS CONSIDERED 


Our congratulations to the following Commodore users, winners of subscriptions to Ahoy! courtesy of New York's Small 


Things Conside 


Thomas Louie 


с гу © 
ә. м». ч). Continued from раве 74 
removing the RS232 card since I will interchange the 
computers with the same printer) with a C-64. Is there 
a hardware product to do this, preferably one with few 
or no software commands? -Todd Walton 
Vicksburg, MS 


Jeremy Rubinschneider 


=. 
On Screen Status Display 


| 4 Many 


BE 


ate Your Own or choose from over 15 t 
unique program. 


3010 Arnold Road 


‚4 radio show (heard weeknights 5-8 and Saturdays 6-8 on 
Susie Freese 


Overview of FONTMASTER 
word processor features: 


уре styles provided in this 


Including: Gouhous English Shadow Manhattan Our пате and our fame” 
Bleck Tero" i tape s. 115 Devonshire, Suite #401 

os Bold Hairpin BYTE 3topbold мыт сэл 

VISA Pudsy Mirror TOXe Fate 


иморәртвап 


(913) 827-0685 


NYC АМ83): 


Mario Costonz Misty Longo 


You need an RS232 interface for your Commodore. This 
is a relatively inexpensive device that can be easily found 
at most stores that handle Commodore products. In gen- 
eral there are two different types of interfaces: terminal 
пре and printer type. You need the printer type. You ma 
then use the printer аз any other one by simply changing 
one number when opening the printer channel for output. 


Tired of Paying High Prices 
CHECK THESE PRODUCTS 
FOR THE С-64! 


oftware 
зо 
Math 
F 


Fr 


id ге DOS 
| 541 User's Guide 

from Datamost 
re DOS 


1541 User's Guide 


ftware/Book Combo's 
DOS 


Send check or Money order to: 


INEXSOFT 


“Inexpensive Software & Books . . . 


| 
Salina, KS 67401 | 


Reader Service No. 133 


WINDOWS ON THE 
VIC AND 64 
ADD MACINTOSH MAGIC 
TO YOUR COMMODORE 
PROGRAMS 


14 AHOY! 


OPENING 
CEREMONIES FOR 
THE 128 
COMMODORES NEW 
COMPUTER FROM THE 
INSIDE OUT 


FALLING NEEDLES 
AND 


SHARED BIRTHDAYS 
SIMULATIONS OF 
THE REAL WORLD 


http://www.oldgamesitalia.net/ 
-- 


Flight 
> Simulator II 


See your dealer... 
or for direct orders enclose $49.95 plus $2.00 for shipping and specify UPS. 
VERGINE re ARIS EP DICE COD: MC a 


Corporation 
713 Edgebrook Drive 


Order Line: 800 / 637-4983 Champaign IL 61820 


(217) 359-8482 Telex: 206995 


Reader Service No. 148 
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